diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index a19a0ec..7e5fcf7 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -187,6 +187,7 @@ selectPlayerPrompt pStr callback = Prompt C.KeyFunction n -> do sStr <- gets $ view inputBuffer players <- gets $ view $ database.dbPlayers + modify $ inputBuffer .~ "" let fKey = pred $ fromIntegral n options = playerSearch sStr players