diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 16:05:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-12 16:05:51 -0700 |
commit | 69ece105e8dd278e33f85841947fe5f263bd7437 (patch) | |
tree | fadae45b1f7424e45a08c37971752affd1b5a16c | |
parent | 68e5a1faed2fc49b5a2ab433ea8cca754fff957d (diff) | |
download | sscan-69ece105e8dd278e33f85841947fe5f263bd7437.tar.gz |
comment about --remove-background
-rw-r--r-- | Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -70,6 +70,9 @@ processScanSessDir st dir = withCurrentDirectory dir $ do -- to output to stdout void $ withFile "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. + -- reported upstream (proc "ocrmypdf" ["-c", "-i", "-r", "temp2.pdf", "-"]) { std_in = NoStream , std_out = UseHandle tempFile |