From 7e0685f049f8981c4f11c3c83caacf85bc855577 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 24 Jan 2026 09:47:10 +0100
Subject: Fix build and bounds for mtl-2.2.2

---
 erebos.cabal | 2 +-
 main/Main.hs | 2 +-
 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
-- 
cgit v1.2.3