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

dev:ui: cleanup

Browse Source
This commit is contained in:
Simon Michael 2024-10-21 18:41:39 -10:00
parent 7c31ddfba2
commit 4b4cc54a6a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,11 +98,12 @@ defuiopts = UIOpts
} }
-- | Process a RawOpts into a UIOpts. -- | Process a RawOpts into a UIOpts.
-- This will return a usage error if provided an invalid theme. -- An invalid --theme name will raise an error.
rawOptsToUIOpts :: RawOpts -> IO UIOpts rawOptsToUIOpts :: RawOpts -> IO UIOpts
rawOptsToUIOpts rawopts = do rawOptsToUIOpts rawopts = do
cliopts <- set balanceaccum accum <$> rawOptsToCliOpts rawopts cliopts <- set balanceaccum accum <$> rawOptsToCliOpts rawopts
return defuiopts { return
defuiopts {
uoWatch = boolopt "watch" rawopts uoWatch = boolopt "watch" rawopts
,uoTheme = checkTheme <$> maybestringopt "theme" rawopts ,uoTheme = checkTheme <$> maybestringopt "theme" rawopts
,uoRegister = maybestringopt "register" rawopts ,uoRegister = maybestringopt "register" rawopts