From b18d3d54b05e16fc32712f7375aa7b288632f8f1 Mon Sep 17 00:00:00 2001
From: "Scott R. Parish" <sparish@peak6.com>
Date: Sun, 10 Jan 2010 21:22:02 -0600
Subject: [PATCH] BSON: fix unexported data constructor

---
 Database/MongoDB/BSON.hs | 7 ++++---
 TODO                     | 5 +++++
 mongoDB.cabal            | 2 +-
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Database/MongoDB/BSON.hs b/Database/MongoDB/BSON.hs
index a734ff8..14c8dfd 100644
--- a/Database/MongoDB/BSON.hs
+++ b/Database/MongoDB/BSON.hs
@@ -1,9 +1,8 @@
 module Database.MongoDB.BSON
     (
      BSValue(..),
-     BSONObject,
+     BSONObject(..),
      toBSONObject,
-     fromBSONObject,
      BinarySubType(..)
     )
 where
@@ -42,7 +41,9 @@ data BSValue
     | BSMaxKey
     deriving (Show, Eq, Ord)
 
-newtype BSONObject = BSONObject { fromBSONObject :: Map.Map L8.ByteString BSValue }
+newtype BSONObject = BSONObject {
+      fromBSONObject :: Map.Map L8.ByteString BSValue
+    }
     deriving (Eq, Ord, Show)
 
 toBSONObject :: [(L8.ByteString, BSValue)] -> BSONObject
diff --git a/TODO b/TODO
index d82ad05..53c99e4 100644
--- a/TODO
+++ b/TODO
@@ -5,3 +5,8 @@ BSON
 ----
 + support something like toSql (convert a haskell type to bson)
 + reject keys that start with "$" or "."
+
+MongoDB
+-------
++ support safe operations
++ auto-reconnection
diff --git a/mongoDB.cabal b/mongoDB.cabal
index 8f37dc6..c22610b 100644
--- a/mongoDB.cabal
+++ b/mongoDB.cabal
@@ -10,4 +10,4 @@ Build-Depends:       base,
 		     utf8-string
 Build-Type:          Simple
 Exposed-modules:     Database.MongoDB.BSON
-Other-modules:       Database.MongoDB.Util
\ No newline at end of file
+Other-modules:       Database.MongoDB.Util