fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

missing haddock comments

This commit is contained in:
Jonathan Lamothe 2019-08-22 01:16:26 -04:00
parent 51e591861d
commit ca60d71006
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Mtlstats/Menu.hs
View File

@ -48,6 +48,7 @@ menuHandler m (C.EventCharacter c) =
[] -> return $ m ^. menuDefault [] -> return $ m ^. menuDefault
menuHandler m _ = return $ m ^. menuDefault menuHandler m _ = return $ m ^. menuDefault
-- | The main menu
mainMenu :: Menu Bool mainMenu :: Menu Bool
mainMenu = Menu "*** MAIN MENU ***" True mainMenu = Menu "*** MAIN MENU ***" True
[ MenuItem '1' "New Season" $ [ MenuItem '1' "New Season" $
@ -58,6 +59,7 @@ mainMenu = Menu "*** MAIN MENU ***" True
return False return False
] ]
-- | The new season menu
newSeasonMenu :: Menu () newSeasonMenu :: Menu ()
newSeasonMenu = Menu "*** SEASON TYPE ***" () newSeasonMenu = Menu "*** SEASON TYPE ***" ()
[ MenuItem '1' "Regular Season" $ [ MenuItem '1' "Regular Season" $