diff --git a/src/Mtlstats/UI.hs b/src/Mtlstats/UI.hs index 9e095fe..d09074d 100644 --- a/src/Mtlstats/UI.hs +++ b/src/Mtlstats/UI.hs @@ -45,4 +45,8 @@ mainMenu = C.drawString $ unlines ] newSeason :: C.Update () -newSeason = return () +newSeason = C.drawString $ unlines + [ "*** SEASON TYPE ***" + , "1) Regular Season" + , "2) Playoffs" + ]