persistent-postgresql 2.0.5 → 2.1
raw patch · 2 files changed
+7/−8 lines, 2 filesdep ~persistentdep ~postgresql-simple
Dependency ranges changed: persistent, postgresql-simple
Files
Database/Persist/Postgresql.hs view
@@ -54,7 +54,6 @@ import qualified Data.Text.Encoding as T import qualified Blaze.ByteString.Builder.Char8 as BBB -import Data.Time.LocalTime (localTimeToUTC, utc) import Data.Text (Text) import Data.Aeson import Control.Monad (forM, mzero)@@ -106,17 +105,17 @@ -- | Same as 'withPostgresqlPool', but instead of opening a pool -- of connections, only one connection is opened. withPostgresqlConn :: (MonadIO m, MonadBaseControl IO m, MonadLogger m)- => ConnectionString -> (Connection -> m a) -> m a+ => ConnectionString -> (SqlBackend -> m a) -> m a withPostgresqlConn = withSqlConn . open' -open' :: ConnectionString -> LogFunc -> IO Connection+open' :: ConnectionString -> LogFunc -> IO SqlBackend open' cstr logFunc = PG.connectPostgreSQL cstr >>= openSimpleConn logFunc -- | Generate a 'Connection' from a 'PG.Connection'-openSimpleConn :: LogFunc -> PG.Connection -> IO Connection+openSimpleConn :: LogFunc -> PG.Connection -> IO SqlBackend openSimpleConn logFunc conn = do smap <- newIORef $ Map.empty- return Connection+ return SqlBackend { connPrepare = prepare' conn , connStmtMap = smap , connInsertSql = insertSql'
persistent-postgresql.cabal view
@@ -1,5 +1,5 @@ name: persistent-postgresql-version: 2.0.5+version: 2.1 license: MIT license-file: LICENSE author: Felipe Lessa, Michael Snoyman <michael@snoyman.com>@@ -16,9 +16,9 @@ library build-depends: base >= 4 && < 5 , transformers >= 0.2.1- , postgresql-simple >= 0.3.10 && < 0.5+ , postgresql-simple >= 0.4.0 && < 0.5 , postgresql-libpq >= 0.6.1 && < 0.10- , persistent >= 2.0.5 && < 2.1+ , persistent >= 2.1 && < 3 , containers >= 0.2 , bytestring >= 0.9 , text >= 0.7