simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-26 20:02:27 +03:00
Code Issues 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}}} =
ui{aopts=uopts{cliopts_=copts{reportspec_=update rspec}}}
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
-- | Reset some filters & toggles.