Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

A few comment spelling corrections

Browse source
This commit is contained in:
Brian Gianforcaro 2010-01-26 02:40:00 -05:00
parent e820d7ad07
commit e8be496011
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Database/MongoDB.hs
View file

@ -41,7 +41,7 @@ module Database.MongoDB
QueryOpt(..), QueryOpt(..),
UpdateFlag(..), UpdateFlag(..),
count, countMatching, delete, insert, insertMany, query, remove, update, count, countMatching, delete, insert, insertMany, query, remove, update,
-- * Convience collection operations -- * Convenience collection operations
find, findOne, quickFind, quickFind', find, findOne, quickFind, quickFind',
-- * Cursor -- * Cursor
Cursor, Cursor,
@ -79,11 +79,11 @@ import System.Random
-- | A handle to a database connection -- | A handle to a database connection
data Connection = Connection { cHandle :: Handle, cRand :: IORef [Int] } data Connection = Connection { cHandle :: Handle, cRand :: IORef [Int] }
-- | Estabilish a connection to a MongoDB server -- | Establish a connection to a MongoDB server
connect :: HostName -> IO Connection connect :: HostName -> IO Connection
connect = flip connectOnPort $ Network.PortNumber 27017 connect = flip connectOnPort $ Network.PortNumber 27017
-- | Estabilish a connection to a MongoDB server on a non-standard port -- | Establish a connection to a MongoDB server on a non-standard port
connectOnPort :: HostName -> Network.PortID -> IO Connection connectOnPort :: HostName -> Network.PortID -> IO Connection
connectOnPort host port = do connectOnPort host port = do
h <- Network.connectTo host port h <- Network.connectTo host port
@ -226,7 +226,7 @@ runCommand c db cmd = do
fromBson (fromJust $ BSON.lookup "errmsg" res) fromBson (fromJust $ BSON.lookup "errmsg" res)
return res return res
-- | An Itertaor over the results of a query. Use 'nextDoc' to get each -- | An Iterator over the results of a query. Use 'nextDoc' to get each
-- successive result document, or 'allDocs' or 'allDocs'' to get lazy or -- successive result document, or 'allDocs' or 'allDocs'' to get lazy or
-- strict lists of results. -- strict lists of results.
data Cursor = Cursor { data Cursor = Cursor {
@ -534,7 +534,7 @@ getReply h = do
-- | Return one document or Nothing if there are no more. -- | Return one document or Nothing if there are no more.
-- Automatically closes the curosr when last document is read -- Automatically closes the cursor when last document is read
nextDoc :: Cursor -> IO (Maybe BsonDoc) nextDoc :: Cursor -> IO (Maybe BsonDoc)
nextDoc cur = do nextDoc cur = do
closed <- readIORef $ curClosed cur closed <- readIORef $ curClosed cur