Haskell Persistent：如果我有整数变量的键，如何通过键从db获取实体？

Question

我使用Persistent orm和scotty web framework。

我希望通过id从db获取值。这些ID来自GET请求

有＆＃34;得到＆＃34;需要＆＃34;密钥实体＆＃34;的功能变量和返回＆＃34;可能是实体＆＃34;。

我使用以下代码从db

获取值

k <- keyFromValues $ [(PersistInt64 myOwnIntVarFromRequest)]
case k of
    Left _ -> {-some processing-}
    Right x -> do
    t <- liftIO . runDb $ get (x::Key Post) --Post is one of my models
    case t of
        Nothing -> {-processing-}
        Just x -> {-processing-}

这些代码非常丑陋。但我不知道如何做得更好

所以我的问题是如何获得类型的变量＆＃34;密钥实体＆＃34;不调用keyFromValues。

PS抱歉我的英语不好

Answer 1

您可以使用toSqlKey。