Есть ли способ использовать низкоуровневый сервер mongoDB от persistent-mongoDB?

Question

В SQL-версии стойки появляется, что прямой доступ к SQL выполняется с помощью rawSql. Есть ли аналогичный способ доступа к командам низкого уровня из бэкэнда mongoDB?

Answer 1

Это оказалось намного проще, чем я думал. Просто импортируйте Database.MongoDB и используйте команды raw driver внутри runDB. Пример:

import Database.MongoDB 
... 
postCommentR :: DocumentId -> Handler Value 
postCommentR documentId = do 
    comment <- commentOr400 
    let idString = toPathPiece documentId 
     contents = commentBody comment 
    runDB $ DB.modify (DB.select ["_id" DB.=: idString] "Document") ["$push" DB.=: ["comments" DB.=: contents]] 
    returnJson $ object []