[英]Haskell Persistent query on dates (Yesod)
我想尝试将日期部分添加到博客帖子的URL中
/blog/2016/11/23/my-blog-post-slug
我不仅要检查slug,还要检查日期部分。 这是我到目前为止所得到的:
getBlogPostR :: Int -> Int -> Int -> Slug -> Handler Html
getBlogPostR pathYear pathMonth pathDay pathSlug = do
Entity _ BlogPost {..} <- runDB $ getBy404 $ UniqueBlogPostSlug pathSlug
let (year, month, day) = toGregorian $ utctDay blogPostCreatedAt
if (fromIntegral year /= pathYear && month /= pathMonth && day /= pathDay)
then notFound
else
defaultLayout $ do
setTitleI blogPostTitle
$(widgetFile "blog/post")
似乎有点笨重。 有没有办法将此年,月,日部分添加为查询过滤参数? (我知道我可以执行原始查询,但这不是我要找的)
[附加信息]
我的模型定义如下:
BlogPost
uuid Text
title Text
slug Text
markdownContent Text
createdAt UTCTime
UniqueBlogPostUuid uuid
UniqueBlogPostSlug slug
Primary uuid
getBlogPostR :: Slug -> Handler Html
getBlogPostR pathSlug = do
Entity _ BlogPost {..} <- runDB $ getBy404 $ UniqueBlogPostSlug pathSlug
mYear <- lookupGetParam "year"
mMonth <- lookupGetParam "month"
mDay <- lookupGetParam "day"
case (,,) <$> mYear <*> mMonth <*> mDay of
Just (queryYear, queryMonth, queryDay) -> do
let (year, month, day) = toGregorian $ utctDay blogPostCreatedAt
if (fromIntegral year /= queryYear && month /= queryMonth && day /= queryDay)
then notFound
else
defaultLayout $ do
setTitleI blogPostTitle
$(widgetFile "blog/post")
Nothing -> notFound
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.