Fix build and bounds for mtl-2.2.2HEADmaster

2 files changed, 2 insertions, 2 deletions

diff --git a/erebos.cabal b/erebos.cabal
index 1937b97..eca0204 100644
--- a/erebos.cabal
+++ b/erebos.cabal
@@ -171,7 +171,7 @@ library
         hashtables ^>= { 1.2, 1.3, 1.4 },
         iproute >=1.7.12 && <1.8,
         memory >=0.14 && <0.19,
-        mtl >=2.2 && <2.4,
+        mtl ^>= { 2.2.2, 2.3 },
         network ^>= { 3.1, 3.2 },
         stm >=2.5 && <2.6,
         text >= 1.2 && <2.2,
diff --git a/main/Main.hs b/main/Main.hs
index ec8c98a..0493e58 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -743,7 +743,7 @@ cmdSelectContext = do
             when (not (roomStateSubscribe rstate)) $ do
                 chatroomSetSubscribe (head $ roomStateData rstate) True
         _ -> return ()
-    handleError (\_ -> return ()) $ do
+    flip catchError (\_ -> return ()) $ do
         conv <- getConversationFromContext ctx
         tzone <- liftIO $ getCurrentTimeZone
         mapM_ (cmdPutStrLn . formatMessage tzone) $ takeWhile messageUnread $ conversationHistory conv