From f7e6ac94379e2add1bd5b29d3abb3cabf84c3399 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 19 Sep 2019 06:25:38 -0400
Subject: [PATCH] clear input buffer after player selection with function key

---
 src/Mtlstats/Prompt.hs | 1 +
 1 file changed, 1 insertion(+)

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