clear message buffer each turn

1 files changed, 4 insertions, 1 deletions

diff --git a/test3.hs b/test3.hs
index 1d4e59f..bcaec33 100644
--- a/test3.hs
+++ b/test3.hs
@@ -103,7 +103,7 @@ main' query =
             }
 
     rec :: State -> IO ()
-    rec q@State{..} = do
+    rec q0@State{..} = do
         let
             img =
                 --string def (show i) <->
@@ -142,6 +142,9 @@ main' query =
             _ -> do
                 rec q { message = "unbound key: " ++ show e }
       where
+
+        q = q0 { message = "" }
+
         onEnter c_ = case Z.label c_ of
             TVMessage m -> do
                 toggleTag "open" m