mongo.hs

module Mongo where

import Database.MongoDB
import Database.MongoDB.BSON
import Network
import Data.ByteString.Lazy.UTF8

fS = fromString

db = fS "yourdb"
usr = "youruser" :: Username
pass = "yourpass" :: Password
students = fS "yourdb.yourcollection"

main :: IO ()
main = do
  con <- connectOnPort "subdomain.mongohq.com" (Network.PortNumber 27024) []
  l <- login con db usr pass
  insert con students (toBsonDoc [("author", toBson "João Milho"),("text", toBson "Hello MongoHQ World!")])
  docs <- find con students (toBsonDoc [("author", toBson "João Milho")]) >>= allDocs
  putStrLn (show docs)