slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;ui: drop redundant exitSuccess

Browse Source
This commit is contained in:
Simon Michael 2020-02-22 11:04:32 -08:00
parent 3bee9a96c9
commit dac3920221
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/Main.hs
View File

@ -28,7 +28,6 @@ import qualified Data.Text as T
-- import Data.Time.Calendar -- import Data.Time.Calendar
import Graphics.Vty (mkVty) import Graphics.Vty (mkVty)
import Safe import Safe
import System.Exit
import System.Directory import System.Directory
import System.FilePath import System.FilePath
import System.FSNotify import System.FSNotify
@ -70,8 +69,8 @@ main = do
let copts' = copts{reportopts_=ropts{forecast_=True}} let copts' = copts{reportopts_=ropts{forecast_=True}}
case True of case True of
_ | "help" `inRawOpts` rawopts -> putStr (showModeUsage uimode) >> exitSuccess _ | "help" `inRawOpts` rawopts -> putStr (showModeUsage uimode)
_ | "version" `inRawOpts` rawopts -> putStrLn prognameandversion >> exitSuccess _ | "version" `inRawOpts` rawopts -> putStrLn prognameandversion
_ | "binary-filename" `inRawOpts` rawopts -> putStrLn (binaryfilename progname) _ | "binary-filename" `inRawOpts` rawopts -> putStrLn (binaryfilename progname)
_ -> withJournalDo copts' (runBrickUi opts) _ -> withJournalDo copts' (runBrickUi opts)