Adapted code to current version of Database.MongoDB

This commit is contained in:
Tong-Kiat Tan 2014-08-06 11:03:46 +08:00
parent 0702130a0f
commit 7747fd2c2c

View File

@ -5,7 +5,7 @@ import Database.MongoDB
main :: IO ()
main = do
let db = "test"
pipe <- runIOE $ connect (host "127.0.0.1")
pipe <- connect (host "127.0.0.1")
e <- access pipe master db run
close pipe
print e