diff options
| -rw-r--r-- | erebos.cabal | 2 | ||||
| -rw-r--r-- | 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 |