Yesod/Persistent 2 中 MongoDB 键的 PersistValues

Question

我在persistent < 2 中有一些代码正在执行以下操作：

(either (\_ -> 0) id).fromPersistValue.unKey.entityKey $ myEntity

如何使用persistent > 2 实现与keys 相同的功能现在由各个后端定义，因此没有unKey 功能？在新版本的 Persistent 中为 MongoDB 键实现这些“Int 表示”还有距离吗？

Answer 1

似乎有一个keyToOid 函数可以大致完成您在Database.Persist.MongoDB 中想要的功能。从Persistent docs，我收集到更改是从后端抽象密钥的一部分：

class (PersistEntity record, PersistEntityBackend record ~ backend, PersistStore backend) => ToBackendKey backend record where

ToBackendKey 将 PersistEntity Key 转换为 BackendKey 每个后端都可以使用它在 Key 和普通 Haskell 类型之间进行转换。