twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix -Wdeprecations warnings (time 1.11)

Browse Source
This commit is contained in:
Tomas Janousek 2021-10-31 17:45:25 +00:00
parent 850a3c245e
commit b83f49d90b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/OrgMode.hs
View File

@ -55,7 +55,8 @@ import XMonad (X, io)
import XMonad.Prompt (XPConfig, XPrompt (showXPrompt), mkXPrompt) import XMonad.Prompt (XPConfig, XPrompt (showXPrompt), mkXPrompt)
import XMonad.Util.XSelection (getSelection) 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.Directory (getHomeDirectory)
import System.IO (IOMode (AppendMode), hPutStrLn, withFile) import System.IO (IOMode (AppendMode), hPutStrLn, withFile)
import Text.ParserCombinators.ReadP (ReadP, munch, munch1, readP_to_S, skipSpaces, string, (<++)) 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, ">"] mconcat ["<", isoDay, " ", take 3 $ show (dayOfWeek day), time, ">"]
where where
time :: String = maybe "" ((' ' :) . show) tod 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 -- | Pretty print a 'Date' and an optional time to reflect the actual
-- date. -- date.