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

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

diff --git a/Main.hs b/Main.hs
index 09b6779..47b6b18 100644
--- a/Main.hs
+++ b/Main.hs
@@ -74,7 +74,7 @@ processScanSessDir st dir = withCurrentDirectory dir $ do
           -- 4. qpdf (ocrmypdf invokes qpdf but it doesn't use
           -- --linearize, which shrinks the PDF, often substantially)
           void $ createProcessWait_ "qpdf"
-              (proc "qpdf" ["--linearize", "temp.pdf"])
+              (proc "qpdf" ["--linearize", "temp.pdf", "-"])
               { std_in = NoStream
               , std_out = UseHandle outH
               , std_err = UseHandle logH
-- 
cgit v1.2.3