From c1826256c010cd9c1838a25ff5c991154f115ec8 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 12 Mar 2017 14:59:07 -0700
Subject: fix pdftk args

---
 Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3