bugfix: don't abort player selection

...upon cancellation of player creation
2019-10-30 00:45:16 -04:00
parent 121f79a8a2
commit 4a113d06e1
3 changed files with 3 additions and 14 deletions
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@@ -331,12 +331,7 @@ confirmCreatePlayerC = Controller
        modify addPlayer
        join $ gets $ view $ progMode.createPlayerStateL.cpsSuccessCallback
      Just False ->
-        ifM (gets $ view $ progMode.createPlayerStateL.cpsAbortable)
-          (join $ gets $ view $ progMode.createPlayerStateL.cpsFailureCallback)
-          (modify $ progMode.createPlayerStateL
-            %~ (cpsNumber   .~ Nothing)
-            .  (cpsName     .~ "")
-            .  (cpsPosition .~ ""))
+        join $ gets $ view $ progMode.createPlayerStateL.cpsFailureCallback
      Nothing -> return ()
    return True
  }