place game number header above relevant prompts

2019-09-02 22:38:41 -04:00
parent 6136151614
commit 8dd4896f07
2 changed files with 14 additions and 9 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -95,7 +95,7 @@ gameMonthMenu = Menu "Month:" () $ map

 -- | The game type menu (home/away)
 gameTypeMenu :: Menu ()
-gameTypeMenu = Menu "*** GAME TYPE ***" ()
+gameTypeMenu = Menu "Game type:" ()
  [ MenuItem '1' "Home Game" $
    modify $ progMode.gameStateL.gameType ?~ HomeGame
  , MenuItem '2' "Away Game" $