1

persistentサーバント Web サービス 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。

そのために生成する機能とは？

4

1 に答える 1

0

bson-genericパッケージを使用しfromBSONてtoBSON関数を生成し、データベースから取得したドキュメントをマップします[User]

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

于 2020-04-01T14:05:25.017 に答える