give ocrmypdf a binary stdout

1 files 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.