don't abort creating new player on selection

2019-10-19 00:41:56 -04:00
parent c7849d3558
commit ef8f7f3fee
3 changed files with 16 additions and 6 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -179,9 +179,9 @@ selectPlayerPrompt pStr callback = Prompt
        Nothing -> do
          mode <- gets $ view progMode
          let
-            cps
-              = newCreatePlayerState
-              & cpsName .~ sStr
+            cps = newCreatePlayerState
+              & cpsAbortable .~ False
+              & cpsName      .~ sStr
              & cpsSuccessCallback .~ do
                modify $ progMode .~ mode
                pIndex <- pred . length <$> gets (view $ database.dbPlayers)