implemented pMinPlayerC

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

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