From 113127d33dadd81ed84e959074e02543074fb29b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Tue, 20 Aug 2019 10:40:17 -0400
Subject: [PATCH] draw new season menu

---
 src/Mtlstats/UI.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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"
+  ]