diff options
| -rw-r--r-- | main/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/main/Main.hs b/main/Main.hs index d8a1f91..d7d42aa 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -737,6 +737,10 @@ cmdSelectContext = do when (not (roomStateSubscribe rstate)) $ do chatroomSetSubscribe (head $ roomStateData rstate) True _ -> return () + handleError (\_ -> return ()) $ do + conv <- getConversationFromContext ctx + tzone <- liftIO $ getCurrentTimeZone + mapM_ (cmdPutStrLn . formatMessage tzone) $ takeWhile messageUnread $ conversationHistory conv cmdSend :: Command cmdSend = void $ do |