persistent-mongoDB 1.3.0.3 → 1.3.0.4

raw patch · 2 files changed

+7/−1 lines, 2 files

Files

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

@@ -113,6 +113,8 @@ import Data.Word (Word16) import Data.Monoid (mappend) import Data.Typeable+import Control.Monad.Trans.Resource (MonadThrow (..))+import Control.Monad.Trans.Control (MonadBaseControl)  #ifdef DEBUG import FileLocation (debug)@@ -392,7 +394,11 @@             t = entityDef $ Just $ dummyFromKey k  instance MonadThrow m => MonadThrow (DB.Action m) where+#if MIN_VERSION_resourcet(1,1,0)+    throwM = lift . throwM+#else     monadThrow = lift . monadThrow+#endif  instance (Applicative m, Functor m, Trans.MonadIO m, MonadBaseControl IO m) => PersistUnique (DB.Action m) where     getBy uniq = do

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