diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index 5df3392..1831f7d 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -57,7 +57,7 @@ import Data.Char (isAlphaNum, isDigit, toUpper)
 import Graphics.Text.Width (safeWcswidth)
 import Graphics.Vty.Input.Events
   ( Event (EvKey)
-  , Key (KChar, KEnter, KEsc, KFun)
+  , Key (KBS, KChar, KEnter, KFun)
   )
 import Lens.Micro ((^.), (&), (.~), (?~), (%~))
 import Lens.Micro.Mtl ((.=), use)
@@ -77,7 +77,7 @@ promptHandler p (VtyEvent (EvKey KEnter [])) = do
   promptAction p val
 promptHandler p (VtyEvent (EvKey (KChar c) [])) =
   modify $ inputBuffer %~ promptProcessChar p c
-promptHandler _ (VtyEvent (EvKey KEsc [])) =
+promptHandler _ (VtyEvent (EvKey KBS [])) =
   modify removeChar
 promptHandler p (VtyEvent (EvKey k m)) =
   promptSpecialKey p k m