From dac39202213a13f1005068280bea247a18ed7c5b Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 22 Feb 2020 11:04:32 -0800 Subject: [PATCH] ;ui: drop redundant exitSuccess --- hledger-ui/Hledger/UI/Main.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs index 5580e2c81..3ab1e9e37 100644 --- a/hledger-ui/Hledger/UI/Main.hs +++ b/hledger-ui/Hledger/UI/Main.hs @@ -28,7 +28,6 @@ import qualified Data.Text as T -- import Data.Time.Calendar import Graphics.Vty (mkVty) import Safe -import System.Exit import System.Directory import System.FilePath import System.FSNotify @@ -70,8 +69,8 @@ main = do let copts' = copts{reportopts_=ropts{forecast_=True}} case True of - _ | "help" `inRawOpts` rawopts -> putStr (showModeUsage uimode) >> exitSuccess - _ | "version" `inRawOpts` rawopts -> putStrLn prognameandversion >> exitSuccess + _ | "help" `inRawOpts` rawopts -> putStr (showModeUsage uimode) + _ | "version" `inRawOpts` rawopts -> putStrLn prognameandversion _ | "binary-filename" `inRawOpts` rawopts -> putStrLn (binaryfilename progname) _ -> withJournalDo copts' (runBrickUi opts)