rename curClose to finish a-la HDBC

This commit is contained in:
Scott R. Parish 2010-01-16 18:33:32 -06:00
parent 8f13ad003e
commit 20f68b706c

View file

@ -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