mongodb - 在 Servant 中持久化 MongoDB

Question

我尝试persistent在 Servant webservices API 中使用 MongoDB。下面是我的型号代码（Model.hs）

let mongoSettings = (mkPersistSettings (ConT ''MongoContext))
    in share [mkPersist mongoSettings, mkMigrate "migrateAll"] [persistLowerCase|
User
    fam   String
    im    String 
    ot    String 
    email String 
    login String
    pswd  String
    deriving Show
|]

$(deriveJSON defaultOptions ''User)

以及访问数据库的代码：

usersGet :: AppM [User]
usersGet = do 
    resultDB <- runDb $ do rest =<< find (select [] "user")
    return resultDB

这给了我一个错误：

Error: Expected type: [User] Actual type: [Document].

我理解这个错误，但我认为库应该自动生成从Document -> User.

为此生成的函数是什么？

Answer 1

使用bson-generic包生成fromBSON和toBSON函数然后将你从数据库中获取的文档映射到[User]

http://hackage.haskell.org/package/bson-generic-0.0.8.1/docs/Data-Bson-Generic.html