From 125e45349600d9146a6199f51df06fa82871b74a Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 27 Jun 2012 16:59:14 -0400 Subject: [PATCH] Always show help if parsing fails. Don't output "Done." --- src/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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." -- 2.43.2