diff --git a/src/Mtlstats/Control/CreateGoalie.hs b/src/Mtlstats/Control/CreateGoalie.hs index d902210..6e6cf45 100644 --- a/src/Mtlstats/Control/CreateGoalie.hs +++ b/src/Mtlstats/Control/CreateGoalie.hs @@ -37,6 +37,7 @@ createGoalieC cgs | null $ cgs^.cgsNumber = getGoalieNumC | null $ cgs^.cgsName = getGoalieNameC | null $ cgs^.cgsRookieFlag = getRookieFlagC + | null $ cgs^.cgsActiveFlag = getActiveFlagC | otherwise = confirmCreateGoalieC getGoalieNumC :: Controller @@ -55,6 +56,9 @@ getRookieFlagC = Controller return True } +getActiveFlagC :: Controller +getActiveFlagC = undefined + confirmCreateGoalieC :: Controller confirmCreateGoalieC = Controller { drawController = \s -> do diff --git a/src/Mtlstats/Control/CreatePlayer.hs b/src/Mtlstats/Control/CreatePlayer.hs index 2aeb4d2..a2946d6 100644 --- a/src/Mtlstats/Control/CreatePlayer.hs +++ b/src/Mtlstats/Control/CreatePlayer.hs @@ -38,6 +38,7 @@ createPlayerC cps | null $ cps^.cpsName = getPlayerNameC | null $ cps^.cpsPosition = getPlayerPosC | null $ cps^.cpsRookieFlag = getRookieFlagC + | null $ cps^.cpsActiveFlag = getActiveFlagC | otherwise = confirmCreatePlayerC getPlayerNumC :: Controller @@ -59,6 +60,9 @@ getRookieFlagC = Controller return True } +getActiveFlagC :: Controller +getActiveFlagC = undefined + confirmCreatePlayerC :: Controller confirmCreatePlayerC = Controller { drawController = \s -> do