From ef961f51ac389264d58e30a1b5f681ca447c8a27 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 12 Aug 2016 18:06:02 -0700
Subject: [PATCH] ui: quick help formatting fix

---
 hledger-ui/Hledger/UI/AccountsScreen.hs | 2 +-
 hledger-ui/Hledger/UI/RegisterScreen.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index 2892c75ba..fd9795003 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -204,7 +204,7 @@ asDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
-                else str "historical" <+> selectedstr "/period")
+                else str "historical/" <+> selectedstr "period")
               ,("F"
                ,if flat_ ropts
                 then str "tree/" <+> selectedstr "flat"
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index 2f062223a..9ff8409fc 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -203,7 +203,7 @@ rsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
-                else str "historical" <+> selectedstr "/period")
+                else str "historical/" <+> selectedstr "period")
               ,("F"
                ,if inclusive
                 then selectedstr "inclusive" <+> str "/exclusive"