better error on scanimage failure

1 files changed, 3 insertions, 1 deletions

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