diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 16:19:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 16:19:18 -0700 |
commit | 0c701f1455e3a92d8ee1da6c33a9c24087093ca7 (patch) | |
tree | a2bab166f66ab87758b391bf53698631bc24802b | |
parent | a8660f5c7c3516e0650d63131d1ca6b5be10eddc (diff) | |
download | sscan-0c701f1455e3a92d8ee1da6c33a9c24087093ca7.tar.gz |
drop superfluous void
-rw-r--r-- | Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 $ withBinaryFile "temp.pdf" WriteMode $ \tempFile -> do + 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. |