diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 14:59:07 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 14:59:13 -0700 |
commit | c1826256c010cd9c1838a25ff5c991154f115ec8 (patch) | |
tree | 128ecbf71953b0090fe6dc5aff00f82656fc46e4 /Main.hs | |
parent | e68e9c2d80237f5633766339d5badd4996f5b0be (diff) | |
download | sscan-c1826256c010cd9c1838a25ff5c991154f115ec8.tar.gz |
fix pdftk args
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |