persistent-mongoDB 2.0.0 → 2.0.0.1

raw patch · 2 files changed

+6/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -119,7 +119,7 @@ import Data.Conduit import Control.Monad.IO.Class (liftIO) import Data.Aeson (Value (Object, Number), (.:), (.:?), (.!=), FromJSON(..), ToJSON(..), withText)-import Control.Monad (mzero, liftM)+import Control.Monad (mzero, liftM, (>=>), forM_) import qualified Data.Conduit.Pool as Pool import Data.Time (NominalDiffTime) #ifdef HIGH_PRECISION_DATE@@ -643,12 +643,11 @@         return $ return make       where         pull context cursor = do-            mdoc <- liftIO $ runReaderT (DB.next cursor) context+            mdoc <- liftIO $ runReaderT (DB.nextBatch cursor) context             case mdoc of-                Nothing -> return ()-                Just doc -> do-                    entity <- fromPersistValuesThrow t doc-                    yield entity+                [] -> return ()+                docs -> do+                    forM_ docs $ fromPersistValuesThrow t >=> yield                     pull context cursor         t = entityDef $ Just $ dummyFromFilts filts 

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