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

ui: setFilter: note error-ignoring behaviour

Browse Source
This commit is contained in:
Simon Michael 2021-04-12 12:06:11 -10:00
parent b13df845c0
commit dbe7ef0157
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-ui/Hledger/UI/UIState.hs
View File

@ -238,7 +238,7 @@ setFilter :: String -> UIState -> UIState
setFilter s ui@UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportspec_=rspec}}} = setFilter s ui@UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportspec_=rspec}}} =
ui{aopts=uopts{cliopts_=copts{reportspec_=update rspec}}} ui{aopts=uopts{cliopts_=copts{reportspec_=update rspec}}}
where where
update = either (const rspec) id . updateReportSpecWith (\ropts -> ropts{querystring_=querystring}) update = either (const rspec) id . updateReportSpecWith (\ropts -> ropts{querystring_=querystring}) -- XXX silently ignores an error
querystring = words'' prefixes $ T.pack s querystring = words'' prefixes $ T.pack s
-- | Reset some filters & toggles. -- | Reset some filters & toggles.