diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/main/Main.hs b/main/Main.hs index 2737915..def3b8c 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -444,9 +444,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do SelectedConversation conv -> return $ conversationPeer conv _ -> return Nothing when (not tui || maybe False (msgPeer cur `sameIdentity`) mbpid) $ do - line <- printLine term $ - (if new then withStyle (setForegroundColor BrightYellow noStyle) else id) $ - plainText $ T.pack $ formatDirectMessage tzone msg + line <- printLine term $ formatMessageFT tzone $ makeMessage new msg modifyMVar_ currentLinesVar $ return . (line :) case optDmBotEcho opts of |