code cleanup
This commit is contained in:
@@ -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