From 0b7a0a95327549e5ce4de3ac72896aa18ae8cd25 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 25 Dec 2014 18:39:50 +0100
Subject: clear message buffer each turn

---
 test3.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'test3.hs')

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
-- 
cgit v1.2.3