clear input buffer after player selection with function key

2019-09-19 06:25:38 -04:00 · 2019-09-19 06:25:38 -04:00 · f7e6ac9437
parent a66be1a45e
commit f7e6ac9437
1 changed files with 1 additions and 0 deletions
--- 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