forgot docs for validateCollection and dropCollection

This commit is contained in:
Scott R. Parish 2010-01-18 22:20:01 -06:00
parent dc99780c03
commit ba53b4b7e8

View file

@ -153,6 +153,7 @@ createCollection c col opts = do
_ <- dbCmd c db $ toBsonDoc cmd _ <- dbCmd c db $ toBsonDoc cmd
return () return ()
-- | Drop a collection.
dropCollection :: Connection -> Collection -> IO () dropCollection :: Connection -> Collection -> IO ()
dropCollection c col = do dropCollection c col = do
let db = dbFromCol col let db = dbFromCol col
@ -160,6 +161,29 @@ dropCollection c col = do
_ <- dbCmd c db $ toBsonDoc [("drop", toBson col')] _ <- dbCmd c db $ toBsonDoc [("drop", toBson col')]
return () return ()
-- | Return a string of validation info about the collection.
--
-- Example output (note this probably can/will change with different
-- versions of the server):
--
-- > validate
-- > details: 0x7fe5cc2c1da4 ofs:e7da4
-- > firstExtent:0:24100 ns:test.foo.bar
-- > lastExtent:0:24100 ns:test.foo.bar
-- > # extents:1
-- > datasize?:180 nrecords?:5 lastExtentSize:1024
-- > padding:1
-- > first extent:
-- > loc:0:24100 xnext:null xprev:null
-- > nsdiag:test.foo.bar
-- > size:1024 firstRecord:0:241e4 lastRecord:0:24280
-- > 5 objects found, nobj:5
-- > 260 bytes data w/headers
-- > 180 bytes data wout/headers
-- > deletedList: 0100100000000000000
-- > deleted: n: 4 size: 588
-- > nIndexes:1
-- > test.foo.bar.$_id_ keys:5
validateCollection :: Connection -> Collection -> IO String validateCollection :: Connection -> Collection -> IO String
validateCollection c col = do validateCollection c col = do
let db = dbFromCol col let db = dbFromCol col