Always show help if parsing fails.

[dead/lwn-epub.git] / src / Main.hs

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
-        Nothing     -> return ()
+        Nothing     -> do
+         _ <- show_help
+         return ()
 
     Nothing -> do
       _ <- show_help
       return ()
-
-  putStrLn "Done."