mongoDB 0.7 → 0.7.1
raw patch · 2 files changed
+15/−14 lines, 2 files
Files
- Database/MongoDB.hs +14/−13
- mongoDB.cabal +1/−1
Database/MongoDB.hs view
@@ -1,18 +1,19 @@ {- | Client interface to MongoDB server(s). -Simple example:+Simple example below. Use with language extension /OvererloadedStrings/. -> > {-# LANGUAGE OverloadedStrings #-} > > import Database.MongoDB+> import Data.UString (u)+> import Control.Monad.Trans (liftIO) > > main = do-> e <- connect (server "127.0.0.1")-> conn <- either (fail . show) return e-> e <- runConn run conn-> either (fail . show) return e+> ee <- runNet $ do+> conn <- connect (host "127.0.0.1")+> runConn run conn+> print ee > > run = useDb "baseball" $ do > clearTeams@@ -24,16 +25,16 @@ > clearTeams = delete (select [] "team") > > insertTeams = insertMany "team" [-> ["name" =: "Yankees", "home" =: ["city" =: "New York", "state" =: "NY"], "league" =: "American"],-> ["name" =: "Mets", "home" =: ["city" =: "New York", "state" =: "NY"], "league" =: "National"],-> ["name" =: "Phillies", "home" =: ["city" =: "Philadelphia", "state" =: "PA"], "league" =: "National"],-> ["name" =: "Red Sox", "home" =: ["city" =: "Boston", "state" =: "MA"], "league" =: "American"] ]+> ["name" =: u"Yankees", "home" =: ["city" =: u"New York", "state" =: u"NY"], "league" =: u"American"],+> ["name" =: u"Mets", "home" =: ["city" =: u"New York", "state" =: u"NY"], "league" =: u"National"],+> ["name" =: u"Phillies", "home" =: ["city" =: u"Philadelphia", "state" =: u"PA"], "league" =: u"National"],+> ["name" =: u"Red Sox", "home" =: ["city" =: u"Boston", "state" =: u"MA"], "league" =: u"American"] ] >-> allTeams = rest =<< find (select [] "team") {sort = ["city" =: 1]}+> allTeams = rest =<< find (select [] "team") {sort = ["city" =: (1 :: Int)]} >-> nationalLeagueTeams = rest =<< find (select ["league" =: "National"] "team")+> nationalLeagueTeams = rest =<< find (select ["league" =: u"National"] "team") >-> newYorkTeams = rest =<< find (select ["home.state" =: "NY"] "team") {project = ["name" =: 1, "league" =: 1]}+> newYorkTeams = rest =<< find (select ["home.state" =: u"NY"] "team") {project = ["name" =: (1 :: Int), "league" =: (1 :: Int)]} > > print' title docs = liftIO $ putStrLn title >> mapM_ print docs -}
mongoDB.cabal view
@@ -1,5 +1,5 @@ Name: mongoDB-Version: 0.7+Version: 0.7.1 License: OtherLicense License-file: LICENSE Maintainer: Tony Hannan <tony@10gen.com>