From 0c701f1455e3a92d8ee1da6c33a9c24087093ca7 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 12 Mar 2017 16:19:18 -0700
Subject: drop superfluous void

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index bbabb5b..d034600 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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.
-- 
cgit v1.2.3