fix pdftk args

1 files changed, 2 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index a261820..09b6779 100644
--- a/Main.hs
+++ b/Main.hs
@@ -56,7 +56,8 @@ processScanSessDir st dir = withCurrentDirectory dir $ do
           renamePath "temp.pdf" "temp2.pdf"
           writeFile "metadata" (metadata posix)
           void $ createProcessWait_ "pdftk"
-              (proc "pdftk" ["temp2.pdf", "update_info", "metadata", "temp.pdf"])
+              (proc "pdftk"
+                ["temp2.pdf", "update_info", "metadata", "output", "temp.pdf"])
               { std_in = NoStream
               , std_out = NoStream
               , std_err = UseHandle logH