From 62dfc443932db0fa44a0c8a0947c2d204979db4b Mon Sep 17 00:00:00 2001 From: "Scott R. Parish" Date: Wed, 20 Jan 2010 22:33:02 -0600 Subject: [PATCH] indexInformation --- Database/MongoDB.hs | 20 +++++++++++++++++++- TODO | 1 - 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/Database/MongoDB.hs b/Database/MongoDB.hs index 306ea4b..14ef6d4 100644 --- a/Database/MongoDB.hs +++ b/Database/MongoDB.hs @@ -48,7 +48,7 @@ module Database.MongoDB -- * Index Key, Unique, Direction(..), - createIndex, dropIndex, dropIndexes, + createIndex, dropIndex, dropIndexes, indexInformation, ) where import Control.Exception @@ -663,6 +663,24 @@ dropIndexes c col = do ("index", toBson "*")] return () +-- | Return a BsonDoc describing the existing indexes on /FullCollection/. +-- +-- With the current server versions (1.2) this will return documents +-- such as: +-- +-- > {"key": {"lastname": -1, "firstname": 1}, +-- > "name": "lastname_-1_firstname_1", +-- > "ns": "mydb.people", +-- > "unique": true} +-- +-- Which is a single key that indexes on @lastname@ (descending) and +-- then @firstname@ (ascending) on the collection @people@ of the +-- database @mydb@ with a uniqueness requirement. +indexInformation :: Connection -> FullCollection -> IO [BsonDoc] +indexInformation c col = do + let (db, _col') = splitFullCol col + quickFind' c (L.append db $ s2L ".system.indexes") $ + toBsonDoc [("ns", toBson col)] indexName :: [(Key, Direction)] -> L8.ByteString indexName = L.intercalate (s2L "_") . List.map partName diff --git a/TODO b/TODO index c260648..db04bc8 100644 --- a/TODO +++ b/TODO @@ -45,7 +45,6 @@ MongoDB * rename - index operations * ensureIndex - * getIndexInformation - misc operations * explain * getOptions