PersistValues ​​для MongoDB ключей в Йесоде/Persistent 2

Question

У меня есть некоторый код, который делает следующее persistent < 2:

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

Как я могу достичь той же функциональность с помощью persistent > 2 в keys теперь определяются отдельной Backend Серверов и как таковая нет функции unKey? Есть ли еще возможность достичь этих «Int-представлений» для ключей MongoDB в новых версиях Persistent?

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.