Merge pull request #8 from mtlstats/away-score

prompt for away team score

src/Mtlstats/Events.hs

@@ -48,4 +48,7 @@ handleEvent e = gets (view progMode) >>= \case
     | null $ gs ^. homeScore -> do
       promptHandler homeScorePrompt e
       return True
+    | null $ gs ^. awayScore -> do
+      promptHandler awayScorePrompt e
+      return True
     | otherwise -> undefined

src/Mtlstats/Prompt.hs

@@ -25,7 +25,8 @@ module Mtlstats.Prompt (
   promptHandler,
   numPrompt,
   -- * Individual prompts
-  homeScorePrompt
+  homeScorePrompt,
+  awayScorePrompt
 ) where
 
 import Control.Monad (when)
@@ -79,3 +80,7 @@ numPrompt pStr act = Prompt
 homeScorePrompt :: Prompt
 homeScorePrompt = numPrompt "Home score: " $
   modify . (progMode . homeScoreL ?~)
+
+awayScorePrompt :: Prompt
+awayScorePrompt = numPrompt "Away score: " $
+  modify . (progMode . awayScoreL ?~)

src/Mtlstats/UI.hs

@@ -42,6 +42,7 @@ draw s = do
       NewGame gs
         | null $ gs ^. gameType  -> drawMenu gameTypeMenu
         | null $ gs ^. homeScore -> drawPrompt homeScorePrompt s
+        | null $ gs ^. awayScore -> drawPrompt awayScorePrompt s
         | otherwise              -> undefined
   C.render
   void $ C.setCursorMode cm