BSON: fix unexported data constructor
This commit is contained in:
parent
2cea5777fb
commit
b18d3d54b0
3 changed files with 10 additions and 4 deletions
|
@ -1,9 +1,8 @@
|
||||||
module Database.MongoDB.BSON
|
module Database.MongoDB.BSON
|
||||||
(
|
(
|
||||||
BSValue(..),
|
BSValue(..),
|
||||||
BSONObject,
|
BSONObject(..),
|
||||||
toBSONObject,
|
toBSONObject,
|
||||||
fromBSONObject,
|
|
||||||
BinarySubType(..)
|
BinarySubType(..)
|
||||||
)
|
)
|
||||||
where
|
where
|
||||||
|
@ -42,7 +41,9 @@ data BSValue
|
||||||
| BSMaxKey
|
| BSMaxKey
|
||||||
deriving (Show, Eq, Ord)
|
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)
|
deriving (Eq, Ord, Show)
|
||||||
|
|
||||||
toBSONObject :: [(L8.ByteString, BSValue)] -> BSONObject
|
toBSONObject :: [(L8.ByteString, BSValue)] -> BSONObject
|
||||||
|
|
5
TODO
5
TODO
|
@ -5,3 +5,8 @@ BSON
|
||||||
----
|
----
|
||||||
+ support something like toSql (convert a haskell type to bson)
|
+ support something like toSql (convert a haskell type to bson)
|
||||||
+ reject keys that start with "$" or "."
|
+ reject keys that start with "$" or "."
|
||||||
|
|
||||||
|
MongoDB
|
||||||
|
-------
|
||||||
|
+ support safe operations
|
||||||
|
+ auto-reconnection
|
||||||
|
|
|
@ -10,4 +10,4 @@ Build-Depends: base,
|
||||||
utf8-string
|
utf8-string
|
||||||
Build-Type: Simple
|
Build-Type: Simple
|
||||||
Exposed-modules: Database.MongoDB.BSON
|
Exposed-modules: Database.MongoDB.BSON
|
||||||
Other-modules: Database.MongoDB.Util
|
Other-modules: Database.MongoDB.Util
|
||||||
|
|
Loading…
Reference in a new issue