Yesod Persistent - 日をUTCTimeと比較するには？ （どのように変換するのですか）

Question

現在の時刻を表すUTCTimeの値と、現在の時刻より大きいか等しいかどうかを知りたいと考えているDayの値があります。

Answer 1

UTCTimeは真夜中（utctDayTime）のでDay（utctDay）と秒数で構成されています。ここでは一日にアクセスする方法を示すのGHCiセッションです：

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もチェックしてみてください。