updated performUpdate type

1 files changed, 1 insertions, 1 deletions

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)