1 files changed, 3 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 67367e2..559defa 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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