From cf26b8a7262b50ac37666974392edf5335e2c7d0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 12 Nov 2024 19:11:34 +0100 Subject: Remove deprecated Message.formatMessage alias Changelog: API: Remove deprecated `Message.formatMessage` alias --- src/Erebos/Message.hs | 5 ----- 1 file changed, 5 deletions(-) (limited to 'src/Erebos/Message.hs') 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