implemented assignPMinsPrompt

2019-10-09 22:32:14 -04:00
parent 1a481ab49d
commit 3d1f6170f6
2 changed files with 11 additions and 1 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -244,7 +244,8 @@ pMinPlayerPrompt = selectPlayerPrompt
    Just n  -> modify $ progMode.gameStateL.selectedPlayer ?~ n

 assignPMinsPrompt :: Prompt
-assignPMinsPrompt = undefined
+assignPMinsPrompt = numPrompt "Penalty minutes: " $
+  modify . assignPMins

 drawSimplePrompt :: String -> ProgState -> C.Update ()
 drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer