diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-12 19:11:34 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-17 22:15:45 +0100 |
| commit | cf26b8a7262b50ac37666974392edf5335e2c7d0 (patch) | |
| tree | ae9bc8bff8a4237e0a2ca506b68dffb00d7f2044 /src/Erebos | |
| parent | 20d017985ff1d69e7ea0c8ea5bd4808e3deab194 (diff) | |
Remove deprecated Message.formatMessage alias
Changelog: API: Remove deprecated `Message.formatMessage` alias
Diffstat (limited to 'src/Erebos')
| -rw-r--r-- | src/Erebos/Conversation.hs | 2 | ||||
| -rw-r--r-- | src/Erebos/Message.hs | 5 |
2 files changed, 1 insertions, 6 deletions
diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs index 68d15ce..415bdc0 100644 --- a/src/Erebos/Conversation.hs +++ b/src/Erebos/Conversation.hs @@ -31,7 +31,7 @@ import Data.Time.LocalTime import Erebos.Chatroom import Erebos.Identity -import Erebos.Message hiding (formatMessage) +import Erebos.Message import Erebos.State import Erebos.Storable diff --git a/src/Erebos/Message.hs b/src/Erebos/Message.hs index a81e795..5ac0ca4 100644 --- a/src/Erebos/Message.hs +++ b/src/Erebos/Message.hs @@ -13,7 +13,6 @@ module Erebos.Message ( messageThreadView, watchReceivedMessages, - formatMessage, formatDirectMessage, ) where @@ -260,10 +259,6 @@ 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 = formatDirectMessage - formatDirectMessage :: TimeZone -> DirectMessage -> String formatDirectMessage tzone msg = concat [ formatTime defaultTimeLocale "[%H:%M] " $ utcToLocalTime tzone $ zonedTimeToUTC $ msgTime msg |