persistent-postgresql 0.2.2 → 0.3.0

raw patch · 2 files changed

+9/−12 lines, 2 filesdep +neitherdep −MonadCatchIO-transformersdep ~containersdep ~persistentdep ~template-haskellPVP ok

version bump matches the API change (PVP)

Dependencies added: neither

Dependencies removed: MonadCatchIO-transformers

Dependency ranges changed: containers, persistent, template-haskell

API changes (from Hackage documentation)

- Database.Persist.Postgresql: withPostgresqlPoolF :: (MonadIO m) => (m a -> m () -> m a) -> String -> Int -> (Pool Connection -> m a) -> m a

- Database.Persist.Postgresql: withPostgresqlConn :: (MonadCatchIO m) => String -> (Connection -> m a) -> m a

+ Database.Persist.Postgresql: withPostgresqlConn :: (MonadInvertIO m) => String -> (Connection -> m a) -> m a

- Database.Persist.Postgresql: withPostgresqlPool :: (MonadCatchIO m) => String -> Int -> (ConnectionPool -> m a) -> m a

+ Database.Persist.Postgresql: withPostgresqlPool :: (MonadInvertIO m) => String -> Int -> (ConnectionPool -> m a) -> m a

Database/Persist/Postgresql.hs view

@@ -2,7 +2,6 @@ -- | A postgresql backend for persistent. module Database.Persist.Postgresql     ( withPostgresqlPool-    , withPostgresqlPoolF     , withPostgresqlConn     , module Database.Persist     , module Database.Persist.GenericSql@@ -18,7 +17,6 @@  import Control.Monad.IO.Class (MonadIO (..)) import Data.List (intercalate)-import "MonadCatchIO-transformers" Control.Monad.CatchIO import Data.IORef import qualified Data.Map as Map import Data.Either (partitionEithers)@@ -26,16 +24,15 @@ import Data.List (sort, groupBy) import Data.Function (on) import qualified Data.ByteString.UTF8 as BSU+import Control.Monad.Invert (MonadInvertIO) -withPostgresqlPool :: MonadCatchIO m+withPostgresqlPool :: MonadInvertIO m                    => String                    -> Int -- ^ number of connections to open                    -> (ConnectionPool -> m a) -> m a withPostgresqlPool s = withSqlPool $ open' s -withPostgresqlPoolF f s = withSqlPoolF f $ open' s--withPostgresqlConn :: MonadCatchIO m => String -> (Connection -> m a) -> m a+withPostgresqlConn :: MonadInvertIO m => String -> (Connection -> m a) -> m a withPostgresqlConn = withSqlConn . open'  open' :: String -> IO Connection@@ -81,7 +78,7 @@     _ <- H.execute stmt $ map pToSql vals     return () -withStmt' :: MonadCatchIO m+withStmt' :: MonadInvertIO m           => H.Statement           -> [PersistValue]           -> (RowPopper m -> m a)

persistent-postgresql.cabal view

@@ -1,5 +1,5 @@ name:            persistent-postgresql-version:         0.2.2+version:         0.3.0 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -14,14 +14,14 @@  library     build-depends:   base >= 4 && < 5,-                     template-haskell >= 2.4 && < 2.5,+                     template-haskell >= 2.4 && < 2.6,                      HDBC >= 2.2.6 && < 2.3,                      transformers >= 0.2.1 && < 0.3,-                     MonadCatchIO-transformers >= 0.2.2 && < 0.3,                      HDBC-postgresql >= 2.2.3.1 && < 2.3,-                     persistent >= 0.2.4 && < 0.3,-                     containers >= 0.2 && < 0.4,+                     persistent >= 0.3.0 && < 0.4,+                     containers >= 0.2 && < 0.5,                      bytestring >= 0.9 && < 0.10,+                     neither >= 0.1 && < 0.2,                      utf8-string >= 0.3.6 && < 0.4     exposed-modules: Database.Persist.Postgresql     ghc-options:     -Wall