如何在yesod上创建模型的utctime查询？

Question

大家好，我的问题是如何在我的数据库中创建Yesod查询，只获得满足UTC时间条件的实例。

我的模特是这样的：

Post
    name Text
    content Text
    date UTCTime default=CURRENT_TIME
    deriving Show

我想要一个查询，我只能提取满足2014年日期的帖子，例如。我想我的查询处理程序必须看起来像这样：

getYearR :: Integer -> Handler Html
getYearR year = do
    posts <- runDB $ selectList [*With some code here about the date and year*] [Desc PostDate]
    defaultLayout $ do
        aDomId <- newIdent
        setTitle "Blog"
        $(widgetFile "homepage")

也许解决方案是创建一个原始的SQL查询，但我认为这不是一个正确的解决方案。

感谢您的时间，我非常感谢您的帮助

Answer 1

您可以尝试这样的事情：

let date = fromGregorian 2014 1 1
    time = timeOfDayToTime $ TimeOfDay 0 0 0
posts <- runDB $ selectList [PostDate >. UTCTime date time] [Desc PostDate]

我不知道Persistent中可以执行此操作的任何功能。原始SQL查询也可以。