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

create type aliases for Username and Password

Browse source 
This will make the resulting documentation more clear what to pass
to the login and addUser functions
This commit is contained in:
Scott R. Parish 2010-02-06 14:56:56 -06:00
parent 8f972f6dda
commit 847e8bac8b
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Database/MongoDB.hs
View file

@ -32,7 +32,7 @@ module Database.MongoDB
serverInfo, serverShutdown, serverInfo, serverShutdown,
databasesInfo, databaseNames, databasesInfo, databaseNames,
-- * Database -- * Database
Database, MongoDBCollectionInvalid, Database, MongoDBCollectionInvalid, Password, Username,
ColCreateOpt(..), ColCreateOpt(..),
collectionNames, createCollection, dropCollection, collectionNames, createCollection, dropCollection,
renameCollection, runCommand, validateCollection, renameCollection, runCommand, validateCollection,
@ -399,6 +399,9 @@ type NumToSkip = Int32
-- and the way the cursor is being used. -- and the way the cursor is being used.
type NumToReturn = Int32 type NumToReturn = Int32
type Username = String
type Password = String
-- | Options that control the behavior of a 'query' operation. -- | Options that control the behavior of a 'query' operation.
data QueryOpt = QOTailableCursor data QueryOpt = QOTailableCursor
| QOSlaveOK | QOSlaveOK
@ -546,7 +549,7 @@ update c col flags sel obj = do
return reqID return reqID
-- | log into the mongodb /Database/ attached to the /Connection/ -- | log into the mongodb /Database/ attached to the /Connection/
login :: Connection -> Database -> String -> String -> IO BsonDoc login :: Connection -> Database -> Username -> Password -> IO BsonDoc
login c db user pass = do login c db user pass = do
doc <- runCommand c db (toBsonDoc [("getnonce", toBson (1 :: Int))]) doc <- runCommand c db (toBsonDoc [("getnonce", toBson (1 :: Int))])
let nonce = fromBson $ fromLookup $ BSON.lookup "nonce" doc :: String let nonce = fromBson $ fromLookup $ BSON.lookup "nonce" doc :: String
@ -559,7 +562,7 @@ login c db user pass = do
in runCommand c db request in runCommand c db request
-- | create a new user in the current /Database/ -- | create a new user in the current /Database/
addUser :: Connection -> Database -> String -> String -> IO BsonDoc addUser :: Connection -> Database -> Username -> Password -> IO BsonDoc
addUser c db user pass = do addUser c db user pass = do
let userDoc = toBsonDoc [(s2L"user", toBson user)] let userDoc = toBsonDoc [(s2L"user", toBson user)]
fdb = L.append db (s2L ".system.users") fdb = L.append db (s2L ".system.users")