From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 27 Jun 2012 20:59:14 +0000 (-0400)
Subject: Always show help if parsing fails.
X-Git-Tag: v0.0.1~39
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=125e45349600d9146a6199f51df06fa82871b74a;p=dead%2Flwn-epub.git

Always show help if parsing fails.
Don't output "Done."
---

diff --git a/src/Main.hs b/src/Main.hs
index 655f1be..8ab82b9 100644
--- 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."