fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

created active flag controller branches

This commit is contained in:
Jonathan Lamothe 2020-02-13 23:23:18 -05:00
parent 7e409fdbd4
commit 8d7a7997b1
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Mtlstats/Control/CreateGoalie.hs
View File

@ -37,6 +37,7 @@ createGoalieC cgs
| null $ cgs^.cgsNumber = getGoalieNumC | null $ cgs^.cgsNumber = getGoalieNumC
| null $ cgs^.cgsName = getGoalieNameC | null $ cgs^.cgsName = getGoalieNameC
| null $ cgs^.cgsRookieFlag = getRookieFlagC | null $ cgs^.cgsRookieFlag = getRookieFlagC
| null $ cgs^.cgsActiveFlag = getActiveFlagC
| otherwise = confirmCreateGoalieC | otherwise = confirmCreateGoalieC
getGoalieNumC :: Controller getGoalieNumC :: Controller
@ -55,6 +56,9 @@ getRookieFlagC = Controller
return True return True
} }
getActiveFlagC :: Controller
getActiveFlagC = undefined
confirmCreateGoalieC :: Controller confirmCreateGoalieC :: Controller
confirmCreateGoalieC = Controller confirmCreateGoalieC = Controller
{ drawController = \s -> do { drawController = \s -> do

4
src/Mtlstats/Control/CreatePlayer.hs
View File

@ -38,6 +38,7 @@ createPlayerC cps
| null $ cps^.cpsName = getPlayerNameC | null $ cps^.cpsName = getPlayerNameC
| null $ cps^.cpsPosition = getPlayerPosC | null $ cps^.cpsPosition = getPlayerPosC
| null $ cps^.cpsRookieFlag = getRookieFlagC | null $ cps^.cpsRookieFlag = getRookieFlagC
| null $ cps^.cpsActiveFlag = getActiveFlagC
| otherwise = confirmCreatePlayerC | otherwise = confirmCreatePlayerC
getPlayerNumC :: Controller getPlayerNumC :: Controller
@ -59,6 +60,9 @@ getRookieFlagC = Controller
return True return True
} }
getActiveFlagC :: Controller
getActiveFlagC = undefined
confirmCreatePlayerC :: Controller confirmCreatePlayerC :: Controller
confirmCreatePlayerC = Controller confirmCreatePlayerC = Controller
{ drawController = \s -> do { drawController = \s -> do