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

rename curClose to finish a-la HDBC

Browse source
This commit is contained in:
Scott R. Parish 2010-01-16 18:33:32 -06:00
parent 8f13ad003e
commit 20f68b706c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Database/MongoDB.hs
View file

@ -2,7 +2,7 @@ module Database.MongoDB
( (
connect, connectOnPort, conClose, connect, connectOnPort, conClose,
delete, insert, insertMany, query, remove, update, delete, insert, insertMany, query, remove, update,
nextDoc, curClose, nextDoc, finish,
Collection, FieldSelector, NumToSkip, NumToReturn, RequestID, Selector, Collection, FieldSelector, NumToSkip, NumToReturn, RequestID, Selector,
Opcode(..), Opcode(..),
QueryOpt(..), QueryOpt(..),
@ -281,8 +281,9 @@ getMore cur = do
return $ Just doc return $ Just doc
curClose :: Cursor -> IO () {- Manually close a cursor -- usually not needed. -}
curClose cur = do finish :: Cursor -> IO ()
finish cur = do
let h = cHandle $ curCon cur let h = cHandle $ curCon cur
cid <- readIORef $ curID cur cid <- readIORef $ curID cur
let body = runPut $ do let body = runPut $ do