esqueleto 1.3.6 → 1.3.7
raw patch · 2 files changed
+7/−7 lines, 2 files
Files
esqueleto.cabal view
@@ -1,5 +1,5 @@ name: esqueleto-version: 1.3.6+version: 1.3.7 synopsis: Bare bones, type-safe EDSL for SQL queries on persistent backends. homepage: https://github.com/meteficha/esqueleto license: BSD3
src/Database/Esqueleto/Internal/Sql.hs view
@@ -51,7 +51,7 @@ import Control.Monad.IO.Class (MonadIO(..)) import Control.Monad.Logger (MonadLogger) import Control.Monad.Trans.Class (lift)-import Control.Monad.Trans.Resource (MonadResourceBase)+import Control.Monad.Trans.Resource (runResourceT, ResourceT, MonadResourceBase) import Data.Int (Int64) import Data.List (intersperse) import Data.Monoid (Monoid(..), (<>))@@ -543,7 +543,7 @@ , MonadResourceBase m ) => Mode -> SqlQuery a- -> SqlPersistT m (C.Source (C.ResourceT (SqlPersistT m)) r)+ -> SqlPersistT m (C.Source (ResourceT (SqlPersistT m)) r) rawSelectSource mode query = src where src = do@@ -571,7 +571,7 @@ , MonadLogger m , MonadResourceBase m ) => SqlQuery a- -> SqlPersistT m (C.Source (C.ResourceT (SqlPersistT m)) r)+ -> SqlPersistT m (C.Source (ResourceT (SqlPersistT m)) r) selectSource = rawSelectSource SELECT @@ -631,7 +631,7 @@ , MonadLogger m , MonadResourceBase m ) => SqlQuery a- -> SqlPersistT m (C.Source (C.ResourceT (SqlPersistT m)) r)+ -> SqlPersistT m (C.Source (ResourceT (SqlPersistT m)) r) selectDistinctSource = rawSelectSource SELECT_DISTINCT @@ -646,9 +646,9 @@ -- | (Internal) Run a 'C.Source' of rows. runSource :: MonadResourceBase m =>- C.Source (C.ResourceT (SqlPersistT m)) r+ C.Source (ResourceT (SqlPersistT m)) r -> SqlPersistT m [r]-runSource src = C.runResourceT $ src C.$$ CL.consume+runSource src = runResourceT $ src C.$$ CL.consume ----------------------------------------------------------------------