summaryrefslogtreecommitdiff
path: root/main/Main.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2026-01-24 09:47:10 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2026-01-24 09:47:10 +0100
commit7e0685f049f8981c4f11c3c83caacf85bc855577 (patch)
treef09efdb39a2ca641d2837aa6eb46b1325961f7a1 /main/Main.hs
parent5d8844de2a50cc72244f6fb64a570840f9332ad8 (diff)
Fix build and bounds for mtl-2.2.2HEADmaster
Diffstat (limited to 'main/Main.hs')
-rw-r--r--main/Main.hs2
1 files changed, 1 insertions, 1 deletions
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