通过 ID 获取持久性 [重复]

Question

我是 Persistent 的新手，并试图弄清楚如何使用 ID 获取一行。 docs show an example 看起来像这样：

personId <- insert $ Person "Michael" "Snoyman" 26
maybePerson <- get personId
case maybePerson of
    Nothing -> liftIO $ putStrLn "Just kidding, not really there"
    Just person -> liftIO $ print person

本示例使用插入生成的 ID 进行查询。我不完全理解它是如何工作的，但这里的想法是存在类型安全的键，因此无法查询带有 BarID 的 Foo。

如何为我的特定实体生成类型安全的 ID/密钥？我希望能够从某个 url 路径中获取一个 Int，然后用它作为 ID 查询我的表。

Answer 1

例如，假设我的models 文件中有一个Article：

Article
    artname     Text
    title       Text
    keywords    Text Maybe
    description Text Maybe
    body        Markdown
    parent      ArticleId Maybe
    user        UserId
    lastUpdate  UTCTime
    weight      Int
    public      Bool

    UniqueArt   artname

    deriving    Typeable

我不需要创建主键 articleId，因为它由 Persistent 处理。

在我的routes 文件中：

/new/page                       ArticleNewR GET POST
/page/#ArticleId/edit           ArticleEditR GET POST
/page/#ArticleId/delete         ArticleDeleteR GET POST
/page/#ArticleId                ArticleViewR GET

#ArticleId 告诉 Yesod 在我的 URL 中只接受 ArticleId 作为第二个参数。 Article*R 只是每个 URL 的处理程序。

在Handler/Article.hs，我需要有相应的函数处理程序。例如，如果我告诉 Yesod ArticleViewR GET 处理程序，我需要定义以下函数：

getArticleViewR :: ArticleId -> Handler Html
getArticleViewR articleId = do
    -- The article
    article <- runDB $ get404 articleId

    -- The parent article (if any)
    let parentIdM = articleParent article
    parentM <- case parentIdM of
                    Just parentId -> runDB $ get parentId
                    Nothing -> return Nothing

    -- The child articles
    children <- runDB $ selectList [ArticleParent ==. Just articleId]
                                   [Asc ArticleWeight, Asc ArticleTitle]

    -- Author
    author <- runDB $ get (articleUser article)

    defaultLayout $ do
        setTitle $ toHtml (articleTitle article)
        setDescription $ articleDescription article
        setKeywords $ articleKeywords article
        setAuthor $ userUsername <$> author
        $(widgetFile "article/view")

这基本上就是你如何链接每个部分。