implemented pMinPlayerC

This commit is contained in:
Jonathan Lamothe
2019-10-09 01:24:55 -04:00
parent e1a48afc5c
commit ffe9b7f87f
2 changed files with 13 additions and 2 deletions

View File

@@ -38,7 +38,8 @@ module Mtlstats.Prompt (
playerPosPrompt,
selectPlayerPrompt,
recordGoalPrompt,
recordAssistPrompt
recordAssistPrompt,
pMinPlayerPrompt
) where
import Control.Monad (when)
@@ -234,5 +235,8 @@ recordAssistPrompt game goal assist = selectPlayerPrompt
when (nAssists >= maxAssists) $
modify $ progMode.gameStateL.confirmGoalDataFlag .~ True
pMinPlayerPrompt :: Prompt
pMinPlayerPrompt = undefined
drawSimplePrompt :: String -> ProgState -> C.Update ()
drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer