From 910d30227082dee795d0f32a99a5f972150f13c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 25 Aug 2013 18:13:52 -0300
Subject: updated performUpdate type

---
 Screen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Screen.hs')

diff --git a/Screen.hs b/Screen.hs
index b253452..919585e 100644
--- a/Screen.hs
+++ b/Screen.hs
@@ -69,7 +69,7 @@ screenLoop = do
                  then screenLoop
                  else return ()
 
---performUpdate :: LazymailUpdate ()
+performUpdate :: LazymailUpdate LazymailState
 performUpdate = do
   st <- get
   liftUpdate $ clearMain (scrRowsAsInteger st) (screenColumns st)
-- 
cgit v1.2.3