From 12ccd1d5c936be6b86edccc59e3a504ace69faeb Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 31 Dec 2010 00:58:28 +0200
Subject: [PATCH] runDB wraps around a GGHandler IO

---
 Yesod/Persist.hs       | 4 ++--
 yesod-persistent.cabal | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Yesod/Persist.hs b/Yesod/Persist.hs
index fc4a3685..25239a3b 100644
--- a/Yesod/Persist.hs
+++ b/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),
diff --git a/yesod-persistent.cabal b/yesod-persistent.cabal
index 5628c942..40b80f1b 100644
--- a/yesod-persistent.cabal
+++ b/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