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

ui: quick help formatting fix

Browse Source
This commit is contained in:
Simon Michael 2016-08-12 18:06:02 -07:00
parent eaba311634
commit ef961f51ac
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -204,7 +204,7 @@ asDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
,("H" ,("H"
,if ishistorical ,if ishistorical
then selectedstr "historical" <+> str "/period" then selectedstr "historical" <+> str "/period"
else str "historical" <+> selectedstr "/period") else str "historical/" <+> selectedstr "period")
,("F" ,("F"
,if flat_ ropts ,if flat_ ropts
then str "tree/" <+> selectedstr "flat" then str "tree/" <+> selectedstr "flat"

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

@ -203,7 +203,7 @@ rsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
,("H" ,("H"
,if ishistorical ,if ishistorical
then selectedstr "historical" <+> str "/period" then selectedstr "historical" <+> str "/period"
else str "historical" <+> selectedstr "/period") else str "historical/" <+> selectedstr "period")
,("F" ,("F"
,if inclusive ,if inclusive
then selectedstr "inclusive" <+> str "/exclusive" then selectedstr "inclusive" <+> str "/exclusive"