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