diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index 8bd64c5..96012f0 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -244,7 +244,14 @@ confirmGoalDataC = Controller } pMinPlayerC :: Controller -pMinPlayerC = undefined +pMinPlayerC = Controller + { drawController = \s -> do + header s + drawPrompt pMinPlayerPrompt s + , handleController = \e -> do + promptHandler pMinPlayerPrompt e + return True + } getPMinsC :: Controller getPMinsC = undefined diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index dc17391..4d2a937 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -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