code cleanup
This commit is contained in:
@@ -83,8 +83,8 @@ confirmCreateGoalieC = Controller
|
|||||||
then success
|
then success
|
||||||
else modify $ progMode.editGoalieStateL
|
else modify $ progMode.editGoalieStateL
|
||||||
%~ (egsSelectedGoalie ?~ gid)
|
%~ (egsSelectedGoalie ?~ gid)
|
||||||
. (egsMode .~ EGLtGames True)
|
. (egsMode .~ EGLtGames True)
|
||||||
. (egsCallback .~ success)
|
. (egsCallback .~ success)
|
||||||
Just False -> failure
|
Just False -> failure
|
||||||
Nothing -> return ()
|
Nothing -> return ()
|
||||||
return True
|
return True
|
||||||
|
|||||||
@@ -86,10 +86,10 @@ confirmCreatePlayerC = Controller
|
|||||||
modify addPlayer
|
modify addPlayer
|
||||||
if rookie
|
if rookie
|
||||||
then success
|
then success
|
||||||
else modify (progMode.editPlayerStateL
|
else modify $ progMode.editPlayerStateL
|
||||||
%~ (epsSelectedPlayer ?~ pid)
|
%~ (epsSelectedPlayer ?~ pid)
|
||||||
. (epsMode .~ EPLtGoals True)
|
. (epsMode .~ EPLtGoals True)
|
||||||
. (epsCallback .~ success))
|
. (epsCallback .~ success)
|
||||||
Just False -> failure
|
Just False -> failure
|
||||||
Nothing -> return ()
|
Nothing -> return ()
|
||||||
return True
|
return True
|
||||||
|
|||||||
Reference in New Issue
Block a user