<Esc> is nop

1 files changed, 3 insertions, 0 deletions

diff --git a/test3.hs b/test3.hs
index bcaec33..d122ce5 100644
--- a/test3.hs
+++ b/test3.hs
@@ -121,6 +121,9 @@ main' query =
             --v = Z.root cursor
         update vty pic
         nextEvent vty >>= \e -> case e of
+            EvKey KEsc [] ->
+                rec q
+
             EvKey (KChar 'c') [MCtrl] ->
                 error "^C"