From 62dfc443932db0fa44a0c8a0947c2d204979db4b Mon Sep 17 00:00:00 2001
From: "Scott R. Parish" <sparish@peak6.com>
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