]> gitweb.michael.orlitzky.com - dead/lwn-epub.git/commitdiff
Always show help if parsing fails.
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 27 Jun 2012 20:59:14 +0000 (16:59 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 27 Jun 2012 20:59:14 +0000 (16:59 -0400)
Don't output "Done."

src/Main.hs

index 655f1bef40c0680bda2c98e2d4ae9bc6f06c2cd8..8ab82b94409e25b28d2856dc9b7d6482c304d164 100644 (file)
@@ -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."