From f152afc67be8e4f55c56dda231914efff01e8dd7 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 12 Mar 2017 16:39:41 -0700 Subject: print out a message about waiting for threads --- Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3