BinRoot/Haskell-Data-Analysis-Cookbook
1
1
Fork 0
mirror of https://github.com/BinRoot/Haskell-Data-Analysis-Cookbook.git synced 2024-10-03 17:29:49 +03:00
Code Issues Projects Releases Wiki Activity

Adapted code to current version of Database.MongoDB

Browse Source
This commit is contained in:
Tong-Kiat Tan 2014-08-09 08:53:23 +08:00
parent 7747fd2c2c
commit f256a69cd8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Ch01/Code11_mongo2/Main.hs
View File

@ -5,7 +5,7 @@ import Data.Maybe
import qualified Data.Text as T
import Data.List.Split
mongoURI = "mongodb://user:pass@ds123.mongolab.com:53788/test"
mongoURI = "mongodb://user:pass@ds035438.mongolab.com:35438/mydb"
uri = fromJust $ parseURI mongoURI
getUser = head $ splitOn ":" $ fromJust $ uriUserInfo uri
getPass = last $ splitOn ":" $ fromJust $ uriUserInfo uri
@ -19,7 +19,7 @@ getDb = T.pack $ tail $ uriPath uri
main :: IO ()
main = do
let hostport = getHost ++ ":" ++ getPort
pipe <- runIOE $ connect (readHostPort hostport)
pipe <- connect (readHostPort hostport)
e <- access pipe master getDb run
close pipe
print e