From 496546229d1b5060c88266210f303a48280c885c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Tue, 27 Aug 2013 20:54:46 -0300 Subject: Clean old code --- Screen.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'Screen.hs') diff --git a/Screen.hs b/Screen.hs index 493c9b4..ce98840 100644 --- a/Screen.hs +++ b/Screen.hs @@ -210,6 +210,3 @@ incrementCurrentRow = (=<<) put $ get >>= \st -> return $ st { currentRow = (cur liftCurses = lift . lift liftUpdate = lift . lift - ---liftToUpdate :: IO a -> Update a ---liftToUpdate io = Update $ lift (liftIO io) \ No newline at end of file -- cgit v1.2.3