From a8660f5c7c3516e0650d63131d1ca6b5be10eddc Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 12 Mar 2017 16:19:07 -0700
Subject: give ocrmypdf a binary stdout

---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index faaf454..bbabb5b 100644
--- a/Main.hs
+++ b/Main.hs
@@ -35,7 +35,7 @@ import           System.Exit           (ExitCode (..))
 import           System.FilePath       ((<.>), (</>))
 import           System.IO             (IOMode (WriteMode), hClose,
                                         hGetContents, hPutStr, openFile,
-                                        withFile)
+                                        withBinaryFile, withFile)
 import           System.IO.Temp        (withSystemTempDirectory)
 import           System.Process
 
@@ -67,7 +67,7 @@ processScanSessDir st dir = withCurrentDirectory dir $ do
               renamePath (dir </> "temp.pdf") (dir </> "temp2.pdf")
               -- OCRmyPDF dies if stdout is not connected, so tell it
               -- to output to stdout
-              void $ withFile "temp.pdf" WriteMode $ \tempFile -> do
+              void $ withBinaryFile "temp.pdf" WriteMode $ \tempFile -> do
                 (_, _, Just herr, p) <- createProcess_ "OCRmyPDF"
                 -- we'd like to use --remove-background here, but then
                 -- qpdf says that ocrmypdf's output is damaged.
-- 
cgit v1.2.3