diff --git a/yesod-persistent/Yesod/Persist/Core.hs b/yesod-persistent/Yesod/Persist/Core.hs index 60b80cd0..1a338f3f 100644 --- a/yesod-persistent/Yesod/Persist/Core.hs +++ b/yesod-persistent/Yesod/Persist/Core.hs @@ -35,7 +35,7 @@ type YesodDB site = YesodPersistBackend site (HandlerT site IO) class Monad (YesodPersistBackend site (HandlerT site IO)) => YesodPersist site where type YesodPersistBackend site :: (* -> *) -> * -> * - runDB :: YesodDB site a -> HandlerT site IO a + runDB :: YesodPersistBackend site (HandlerT site IO) a -> HandlerT site IO a -- | Helper for creating 'runDB'. -- @@ -71,7 +71,7 @@ class YesodPersist site => YesodPersistRunner site where getDBRunner :: HandlerT site IO (DBRunner site, HandlerT site IO ()) newtype DBRunner site = DBRunner - { runDBRunner :: forall a. YesodDB site a -> HandlerT site IO a + { runDBRunner :: forall a. YesodPersistBackend site (HandlerT site IO) a -> HandlerT site IO a } -- | Helper for implementing 'getDBRunner'. @@ -106,7 +106,7 @@ defaultGetDBRunner getPool = do -- -- Since 1.2.0 runDBSource :: YesodPersistRunner site - => Source (YesodDB site) a + => Source (YesodPersistBackend site (HandlerT site IO)) a -> Source (HandlerT site IO) a runDBSource src = do (dbrunner, cleanup) <- lift getDBRunner @@ -116,7 +116,7 @@ runDBSource src = do -- | Extends 'respondSource' to create a streaming database response body. respondSourceDB :: YesodPersistRunner site => ContentType - -> Source (YesodDB site) (Flush Builder) + -> Source (YesodPersistBackend site (HandlerT site IO)) (Flush Builder) -> HandlerT site IO TypedContent respondSourceDB ctype = respondSource ctype . runDBSource diff --git a/yesod-persistent/yesod-persistent.cabal b/yesod-persistent/yesod-persistent.cabal index d8c391b8..3560dd93 100644 --- a/yesod-persistent/yesod-persistent.cabal +++ b/yesod-persistent/yesod-persistent.cabal @@ -1,5 +1,5 @@ name: yesod-persistent -version: 1.2.2.2 +version: 1.2.2.3 license: MIT license-file: LICENSE author: Michael Snoyman