Yesod：通过 ID 从 Int 获取数据库实体

Question

我对 Haskell 和 Yesod 都很陌生，我正在尝试构建一个简单的 Web 应用程序来回答来自外部 API 的查询。我已经构建了一个解析器（使用 Parsec），它可以获取我想要作为常规 Int 值加载的实体的 ID。

然而，我一生都无法弄清楚如何将这个 Int 转换为 get 会接受的东西（即 Key （？））。文档中的所有示例仅从之前的插入或 url 调度中获取 id。

任何帮助将不胜感激，因为我似乎陷入困境......:)

Answer 1

即使答案已经可以在评论中找到，我还是想给出一个完整的例子。

假设我们有一个 Person 模型，以下函数返回具有给定 ID 的人的记录（如果存在）：

import Database.Persist.Types (PersistValue(PersistInt64))

getByIntId :: Integral i => i -> Handler (Maybe Person)
getByIntId i = runDB $ get $ Key $ PersistInt64 (fromIntegral i)

需要 import 来让我们构造持久化- 整数的版本。 fromIntegral 将任何整数转换为预期类型 Int64。

更新：从 Yesod 1.2 PersistValue 开始，位于 Database.Persist.Types 模块中，在 1.2 之前，它是 Database.Persist.Store< /code> (API 文档）。

更新 2：自 Persistent 2.0.2 起，有两个内置函数可用于将数据库密钥转换为数据库密钥：toSqlKey 和 fromSqlKey (API 文档，请参阅 hhefesto 的回答示例） 。

Answer 2

PersistInt64 位于：Database.Persist.Types。

以前，PersistInt64 位于：Database.Persist.Store。

Answer 3

只是一个如何使用 toSqlKey 的示例（持久 2.0.2）

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
Users
    email String
    password String
    alias String
    deriving Show
|]

connStr = "host=localhost dbname=communis_db user=communis password=develpass port=5432"

inBackend :: ReaderT SqlBackend (NoLoggingT (ResourceT IO)) a-> IO a
inBackend action = runStderrLoggingT $ withPostgresqlPool connStr 10 $ \pool -> liftIO $ do
  flip runSqlPersistMPool pool $ do
    runMigration migrateAll
    action

toUserId :: Int64 -> UsersId
toUserId = toSqlKey

get_user :: Int64 -> IO (Maybe Users)
get_user = inBackend . get . toUserId

delete_user :: Int64 -> IO ()
delete_user = inBackend . delete . toUserId