persistent-mongoDB 1.4.4.1 → 1.4.4.2

raw patch · 2 files changed

+8/−8 lines, 2 files

Files

• Database/Persist/MongoDB.hs +7/−7
• persistent-mongoDB.cabal +1/−1

@@ -428,12 +428,12 @@         isNull (PersistList l) = null l         isNull _ = False -        -- make sure to removed nulls from embedded entities also-        embeddedVal :: Maybe (EntityDef a) -> PersistValue -> DB.Value-        embeddedVal (Just emDef) (PersistMap m) = DB.Doc $-          zipFilter (entityFields emDef) $ map snd m-        embeddedVal je@(Just _) (PersistList l) = DB.Array $ map (embeddedVal je) l-        embeddedVal _ _ = DB.val pv+    -- make sure to removed nulls from embedded entities also+    embeddedVal :: Maybe (EntityDef a) -> PersistValue -> DB.Value+    embeddedVal (Just emDef) (PersistMap m) = DB.Doc $+      zipFilter (entityFields emDef) $ map snd m+    embeddedVal je@(Just _) (PersistList l) = DB.Array $ map (embeddedVal je) l+    embeddedVal _ pv = DB.val pv  collectionName :: (PersistEntity record) => record -> Text collectionName = unDBName . entityDB . entityDef . Just@@ -653,7 +653,7 @@       -- However, I don't think an end user ever wants that.       FilterOr fs  -> multiFilter OrDollar fs       -- Ignore an empty filter list instead of throwing an exception.-      -- $and is necessary in only a few cases, but it makes query construction easier+      -- \$and is necessary in only a few cases, but it makes query construction easier       FilterAnd [] -> []       FilterAnd fs -> multiFilter AndDollar fs 

@@ -1,5 +1,5 @@ name:            persistent-mongoDB-version:         1.4.4.1+version:         1.4.4.2 license:         MIT license-file:    LICENSE author:          Greg Weber <greg@gregweber.info>