haskell - Yesod 持久 - 如何比较 Day 与 UTCTime？ (如何转换它们？)

Question

我有一个 UTCTime 类型的值代表当前时间，还有一个 Day 类型的值，我想知道它是否大于或等于当前时间.

Answer 1

一个UTCTime由 Day 组成( utctDay ) 和自午夜以来的秒数 ( utctDayTime )。这是一个 GHCi session ，展示了如何访问这一天:

ghci > import Data.Time
ghci > time <- getCurrentTime
ghci > :t time
time :: UTCTime
ghci > utctDay time
2016-04-30
ghci > :t utctDay time
utctDay time :: Day

一旦您有权访问 Day ，您可以使用标准比较函数( > 、 >= == 、 < 和 <= ):

ghci > t1 <- getCurrentTime
ghci > t2 <- getCurrentTime
ghci > t1
2016-04-30 21:59:06.808488 UTC
ghci > t2
2016-04-30 21:59:11.920389 UTC
ghci > (utctDay t1) >= (utctDay t2)
True

您可能还想查看the Haddocks for UTCTime .