X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FMain.hs;h=8ab82b94409e25b28d2856dc9b7d6482c304d164;hp=655f1bef40c0680bda2c98e2d4ae9bc6f06c2cd8;hb=125e45349600d9146a6199f51df06fa82871b74a;hpb=7e8da46abac090b44726946d8e3275f7b9361953

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."