如何从 yesod 上的模型创建 utctime 查询？答案

【问题标题】：How create utctime query from model on yesod?如何从 yesod 上的模型创建 utctime 查询？
【发布时间】：2014-11-06 21:59:42
【问题描述】：

大家好，我的问题是如何从我的数据库中创建一个查询 Yesod 以仅获取满足 UTCtime 条件的实例。

我的模型是这样的：

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 查询，但我认为这不是一个正确的解决方案。

感谢您的宝贵时间，非常感谢您的帮助

【问题讨论】：

标签： sql time utc yesod

【解决方案1】：

你可以试试这样的：

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

我不知道 Persistent 中有任何功能可以做到这一点。原始 SQL 查询也可以工作。

【讨论】：