From 620e5840aba91d683bf7b4ee115079550aae8569 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 May 2024 21:37:46 +0200
Subject: Conversation interface

Changelog: Added `/conversations` command to list and select conversations
---
 src/Erebos/Message.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Erebos/Message.hs')

diff --git a/src/Erebos/Message.hs b/src/Erebos/Message.hs
index ea86ca0..f8ad2cf 100644
--- a/src/Erebos/Message.hs
+++ b/src/Erebos/Message.hs
@@ -14,6 +14,7 @@ module Erebos.Message (
 
     watchReceivedMessages,
     formatMessage,
+    formatDirectMessage,
 ) where
 
 import Control.Monad
@@ -258,8 +259,12 @@ watchReceivedMessages h f = do
         forM_ (map fromStored sms) $ \ms -> do
             mapM_ f $ filter (not . sameIdentity self . msgFrom . fromStored) $ msReceived ms
 
+{-# DEPRECATED formatMessage "use formatDirectMessage instead" #-}
 formatMessage :: TimeZone -> DirectMessage -> String
-formatMessage tzone msg = concat
+formatMessage = formatDirectMessage
+
+formatDirectMessage :: TimeZone -> DirectMessage -> String
+formatDirectMessage tzone msg = concat
     [ formatTime defaultTimeLocale "[%H:%M] " $ utcToLocalTime tzone $ zonedTimeToUTC $ msgTime msg
     , maybe "<unnamed>" T.unpack $ idName $ msgFrom msg
     , ": "
-- 
cgit v1.2.3