print out a message about waiting for threads

1 files changed, 2 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 27bf087..412b237 100644
--- a/Main.hs
+++ b/Main.hs
@@ -190,7 +190,8 @@ scanimageArgs st =
 
 processCommand :: St -> IO ()
 processCommand st = case st^.stScanSess of
-  Nothing -> return ()          -- quit sscan
+  Nothing -> putStrLn "Waiting for OCR threads to complete..."
+    >> return ()          -- quit sscan
   Just (ScanSess command _ maybeDir) -> case maybeDir of
     Nothing -> withSystemTempDirectory "sscan" $ \dir ->
       processCommand (setScanSessDir dir st)