当 Haskell 持久库中需要“Key”时，如何通过“Int”获取实体？

我将持久性 orm 与 scotty Web 框架一起使用。

我想通过 id 从 db 获取值。这些是来自 GET 请求的

有“get”函数接受“Key Entity”变量并返回“Maybe Entity”。

我使用以下代码从数据库获取值

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-}

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

所以我的问题是如何在不调用 keyFromValues 的情况下获取“Key Entity”类型的变量。

PS抱歉我的英语不好

您可以使用toSqlKey http://www.stackage.org/haddock/lts-1.2/persistent-2.1.1.4/Database-Persist-Sql.html#v:toSqlKey为了那个原因。