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

simplify findOne

Browse source
This commit is contained in:
Scott R. Parish 2010-02-23 07:13:29 -06:00
parent f1fdc0f13b
commit a3c56b3c2e
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Database/MongoDB.hs
View file

@ -504,9 +504,7 @@ find c col sel = query c col [] 0 0 sel []
-- | Query, but only return the first result, if any.
findOne :: Connection -> FullCollection -> Selector -> IO (Maybe BsonDoc)
findOne c col sel = do
cur <- query c col [] 0 (-1) sel []
nextDoc cur
findOne c col sel = query c col [] 0 (-1) sel [] >>= nextDoc
-- | Perform a query and return the result as a lazy list. Be sure to
-- understand the comments about using the lazy list given for