rename curClose to finish a-la HDBC
This commit is contained in:
parent
8f13ad003e
commit
20f68b706c
1 changed files with 4 additions and 3 deletions
|
@ -2,7 +2,7 @@ module Database.MongoDB
|
|||
(
|
||||
connect, connectOnPort, conClose,
|
||||
delete, insert, insertMany, query, remove, update,
|
||||
nextDoc, curClose,
|
||||
nextDoc, finish,
|
||||
Collection, FieldSelector, NumToSkip, NumToReturn, RequestID, Selector,
|
||||
Opcode(..),
|
||||
QueryOpt(..),
|
||||
|
@ -281,8 +281,9 @@ getMore cur = do
|
|||
return $ Just doc
|
||||
|
||||
|
||||
curClose :: Cursor -> IO ()
|
||||
curClose cur = do
|
||||
{- Manually close a cursor -- usually not needed. -}
|
||||
finish :: Cursor -> IO ()
|
||||
finish cur = do
|
||||
let h = cHandle $ curCon cur
|
||||
cid <- readIORef $ curID cur
|
||||
let body = runPut $ do
|
||||
|
|
Loading…
Reference in a new issue