如何从purescript访问mongodb？

npm install purescript-mongo-driver

spago init
spago install mongo-driver

module Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)
import Database.MongoDB (MongoDB, connect, close, access, master, Database, Pipe, Action, Query, Document, Value, find, rest, insert, delete, select, (=:))

main :: forall eff. Eff (console :: CONSOLE, mongo :: MongoDB | eff) Unit
main = do
  -- 连接到MongoDB
  pipe <- connect "mongodb://localhost:27017"
  
  -- 访问数据库
  let db = "mydb" :: Database
  let action = access pipe master db
  
  -- 查询数据
  documents <- action $ find (select [] "mycollection") >>= rest
  log $ "查询结果：" <> show documents
  
  -- 插入数据
  let document = ["name" =: "John", "age" =: 30] :: Document
  action $ insert "mycollection" document
  
  -- 删除数据
  action $ delete (select ["name" =: "John"] "mycollection")
  
  -- 关闭连接
  close pipe

spago build

node -e "require('./output/Main').main()"