about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/glittershark/xanthous/src/Xanthous/App.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/users/glittershark/xanthous/src/Xanthous/App.hs b/users/glittershark/xanthous/src/Xanthous/App.hs
index e20c5d97b854..b43711925c29 100644
--- a/users/glittershark/xanthous/src/Xanthous/App.hs
+++ b/users/glittershark/xanthous/src/Xanthous/App.hs
@@ -112,6 +112,7 @@ handleNoPromptEvent :: BrickEvent ResourceName AppEvent -> AppM (Next GameState)
 handleNoPromptEvent (VtyEvent (EvKey k mods))
   | Just command <- commandFromKey k mods
   = do messageHistory %= nextTurn
+       cancelAutocommand
        handleCommand command
 handleNoPromptEvent (AppEvent AutoContinue) = do
   preuse (autocommand . _ActiveAutocommand . _1) >>= traverse_ autoStep