validateCollection

This commit is contained in:
Scott R. Parish 2010-01-18 21:39:38 -06:00
parent 6569157051
commit d7f6cfc348
2 changed files with 8 additions and 2 deletions

View file

@ -32,7 +32,7 @@ module Database.MongoDB
-- * Database
Database, MongoDBCollectionInvalid,
ColCreateOpt(..),
collectionNames, createCollection, dropCollection,
collectionNames, createCollection, dropCollection, validateCollection,
-- * Collection
Collection, FieldSelector, NumToSkip, NumToReturn, Selector,
QueryOpt(..),
@ -160,6 +160,13 @@ dropCollection c col = do
_ <- dbCmd c db $ toBsonDoc [("drop", toBson col')]
return ()
validateCollection :: Connection -> Collection -> IO String
validateCollection c col = do
let db = dbFromCol col
col' = colMinusDB col
res <- dbCmd c db $ toBsonDoc [("validate", toBson col')]
return $ fromBson $ fromJust $ BSON.lookup "result" res
dbFromCol :: Collection -> Database
dbFromCol = List.takeWhile (/= '.')

1
TODO
View file

@ -38,7 +38,6 @@ MongoDB
* getProfilingLevel
* setProfilingLevel
* getProfilingInfo
* validateCollection
- collection
* modify
* replace