yesod-persistent 1.2.2.2 → 1.2.2.3
raw patch · 2 files changed
+5/−5 lines, 2 files
Files
- Yesod/Persist/Core.hs +4/−4
- yesod-persistent.cabal +1/−1
Yesod/Persist/Core.hs view
@@ -35,7 +35,7 @@ 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 @@ 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 @@ -- -- 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 @@ -- | 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
yesod-persistent.cabal view
@@ -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 <michael@snoyman.com>