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.Prompt (XPConfig, XPrompt (showXPrompt), mkXPrompt)
import XMonad.Util.XSelection (getSelection) import XMonad.Util.XSelection (getSelection)
import Data.Time (Day (ModifiedJulianDay), NominalDiffTime, UTCTime (utctDay), addUTCTime, fromGregorian, getCurrentTime, nominalDay, toGregorian) import Data.Time (Day (ModifiedJulianDay), NominalDiffTime, UTCTime (utctDay), addUTCTime, defaultTimeLocale, formatTime, fromGregorian, getCurrentTime, iso8601DateFormat, 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, (<++))
@ -266,7 +265,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 = iso8601Show day isoDay :: String = formatTime defaultTimeLocale (iso8601DateFormat Nothing) 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.