Always show help if parsing fails.

Don't output "Done."

diff --git a/src/Main.hs b/src/Main.hs
index 655f1bef40c0680bda2c98e2d4ae9bc6f06c2cd8..8ab82b94409e25b28d2856dc9b7d6482c304d164 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -71,10 +71,10 @@ main = do
       result <- parse html
       case result of
         Just stuff  -> epublish stuff output_handle
       result <- parse html
       case result of
         Just stuff  -> epublish stuff output_handle

-        Nothing     -> return ()
+        Nothing     -> do
+         _ <- show_help
+         return ()

 
     Nothing -> do
       _ <- show_help
       return ()
 
     Nothing -> do
       _ <- show_help
       return ()

-
-  putStrLn "Done."