runDB wraps around a GGHandler IO

Yesod/Persist.hs

@@ -11,11 +11,11 @@ import Database.Persist
 import Control.Monad.Trans.Class (MonadTrans (..))
 import Control.Failure (Failure)
 
-import Yesod
+import Yesod.Handler
 
 class YesodPersist y where
     type YesodDB y :: (* -> *) -> * -> *
-    runDB :: YesodDB y (GHandler sub y) a -> GHandler sub y a
+    runDB :: YesodDB y (GGHandler sub y IO) a -> GHandler sub y a
 
 -- Get the given entity by ID, or return a 404 not found if it doesn't exist.
 get404 :: (PersistBackend (t m), PersistEntity val, Monad (t m),

yesod-persistent.cabal

@@ -13,7 +13,7 @@ homepage:        http://docs.yesodweb.com/
 
 library
     build-depends:   base                      >= 4        && < 5
-                   , yesod                     >= 0.7      && < 0.8
+                   , yesod-core                >= 0.7      && < 0.8
                    , persistent                >= 0.4      && < 0.5
                    , failure                   >= 0.1      && < 0.2
                    , transformers              >= 0.2      && < 0.3