From cf26b8a7262b50ac37666974392edf5335e2c7d0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 12 Nov 2024 19:11:34 +0100
Subject: Remove deprecated Message.formatMessage alias

Changelog: API: Remove deprecated `Message.formatMessage` alias
---
 src/Erebos/Conversation.hs | 2 +-
 src/Erebos/Message.hs      | 5 -----
 2 files changed, 1 insertion(+), 6 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3