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

Revert "Fix -Wdeprecations warnings (time 1.11)"

Browse Source 
This doesn't work with the version of time shipped with GHC 8.4 and 8.6.

This reverts commit f2db7bcaa6367bc7db6b49c30e029f10534a99a2.
This commit is contained in:
Tomas Janousek 2021-10-31 23:26:06 +00:00
parent 8197cd9105
commit e7f102bc9a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/OrgMode.hs
View File

@ -55,8 +55,7 @@ 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, fromGregorian, getCurrentTime, nominalDay, toGregorian)
import Data.Time.Format.ISO8601 (iso8601Show)
import Data.Time (Day (ModifiedJulianDay), NominalDiffTime, UTCTime (utctDay), addUTCTime, defaultTimeLocale, formatTime, fromGregorian, getCurrentTime, iso8601DateFormat, nominalDay, toGregorian)
import System.Directory (getHomeDirectory)
import System.IO (IOMode (AppendMode), hPutStrLn, withFile)
import Text.ParserCombinators.ReadP (ReadP, munch, munch1, readP_to_S, skipSpaces, string, (<++))
@ -266,7 +265,7 @@ toOrgFmt tod day =
mconcat ["<", isoDay, " ", take 3 $ show (dayOfWeek day), time, ">"]
where
time :: String = maybe "" ((' ' :) . show) tod
isoDay :: String = iso8601Show day
isoDay :: String = formatTime defaultTimeLocale (iso8601DateFormat Nothing) day
-- | Pretty print a 'Date' and an optional time to reflect the actual
-- date.