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/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -180,7 +180,6 @@ selectPlayerPrompt pStr callback = Prompt
          mode <- gets $ view progMode
          let
            cps = newCreatePlayerState
-              & cpsAbortable .~ False
              & cpsName      .~ sStr
              & cpsSuccessCallback .~ do
                modify $ progMode .~ mode
@@ -188,7 +187,6 @@ selectPlayerPrompt pStr callback = Prompt
                callback $ Just pIndex
              & cpsFailureCallback .~ do
                modify $ progMode .~ mode
-                callback Nothing
          modify $ progMode .~ CreatePlayer cps
  , promptSpecialKey = \case
    C.KeyFunction n -> do