Clean old code

1 files changed, 0 insertions, 3 deletions

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