From b83f49d90bf48277a9bc8a4ffd1737eeac373f1b Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Sun, 31 Oct 2021 17:45:25 +0000 Subject: [PATCH] Fix -Wdeprecations warnings (time 1.11) --- XMonad/Prompt/OrgMode.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/XMonad/Prompt/OrgMode.hs b/XMonad/Prompt/OrgMode.hs index 396bc8a1..c42072bf 100644 --- a/XMonad/Prompt/OrgMode.hs +++ b/XMonad/Prompt/OrgMode.hs @@ -55,7 +55,8 @@ import XMonad (X, io) import XMonad.Prompt (XPConfig, XPrompt (showXPrompt), mkXPrompt) import XMonad.Util.XSelection (getSelection) -import Data.Time (Day (ModifiedJulianDay), NominalDiffTime, UTCTime (utctDay), addUTCTime, defaultTimeLocale, formatTime, fromGregorian, getCurrentTime, iso8601DateFormat, nominalDay, toGregorian) +import Data.Time (Day (ModifiedJulianDay), NominalDiffTime, UTCTime (utctDay), addUTCTime, fromGregorian, getCurrentTime, nominalDay, toGregorian) +import Data.Time.Format.ISO8601 (iso8601Show) import System.Directory (getHomeDirectory) import System.IO (IOMode (AppendMode), hPutStrLn, withFile) import Text.ParserCombinators.ReadP (ReadP, munch, munch1, readP_to_S, skipSpaces, string, (<++)) @@ -265,7 +266,7 @@ toOrgFmt tod day = mconcat ["<", isoDay, " ", take 3 $ show (dayOfWeek day), time, ">"] where time :: String = maybe "" ((' ' :) . show) tod - isoDay :: String = formatTime defaultTimeLocale (iso8601DateFormat Nothing) day + isoDay :: String = iso8601Show day -- | Pretty print a 'Date' and an optional time to reflect the actual -- date.