diff options
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 |