clear input buffer after player selection with function key
This commit is contained in:
parent
a66be1a45e
commit
f7e6ac9437
|
@ -187,6 +187,7 @@ selectPlayerPrompt pStr callback = Prompt
|
||||||
C.KeyFunction n -> do
|
C.KeyFunction n -> do
|
||||||
sStr <- gets $ view inputBuffer
|
sStr <- gets $ view inputBuffer
|
||||||
players <- gets $ view $ database.dbPlayers
|
players <- gets $ view $ database.dbPlayers
|
||||||
|
modify $ inputBuffer .~ ""
|
||||||
let
|
let
|
||||||
fKey = pred $ fromIntegral n
|
fKey = pred $ fromIntegral n
|
||||||
options = playerSearch sStr players
|
options = playerSearch sStr players
|
||||||
|
|
Loading…
Reference in New Issue
Block a user