From ab1c5b31639a1e878ec20879e9fbace82362fd6e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 1 Mar 2017 09:33:26 -0700 Subject: better error on scanimage failure --- Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index c03d611..ac80935 100644 --- a/Main.hs +++ b/Main.hs @@ -122,7 +122,9 @@ scanPage st dir = withFile outF WriteMode $ \outH -> do ExitSuccess -> return True ExitFailure c -> do putStrLn $ "scanimage exited with exit code" ++ show c ++ "!" - putStrLn "press any key to abort this scanning session" + putStrLn "This might because sscan tried to use an option that your" + putStrLn "scanner does not support. Please try another preset." + putStrLn "Press any key to abort this scanning session..." void getChar return False where -- cgit v1.2.3