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

---
 main/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main/Main.hs')

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