From 31af9ec792dcb0babb479b42b621e0ce5cbb9793 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 20 Jun 2010 11:18:54 +0300
Subject: [PATCH] persistent changes

---
 Yesod/Helpers/Crud.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Yesod/Helpers/Crud.hs b/Yesod/Helpers/Crud.hs
index 6c35cb3a..a7a17467 100644
--- a/Yesod/Helpers/Crud.hs
+++ b/Yesod/Helpers/Crud.hs
@@ -153,8 +153,7 @@ crudHelper title me isPost = do
                     %a!href=@toMaster.CrudDeleteR.toSinglePiece.fst.e@ Delete
 |]
 
-defaultCrud :: (PersistEntity i, YesodPersist a,
-               PersistMonad i ~ YesodDB a (GHandler (Crud a i) a))
+defaultCrud :: (PersistEntity i, YesodPersist a, PersistMonad i ~ YesodDB a)
             => a -> Crud a i
 defaultCrud = const Crud
     { crudSelect = runDB $ select [] []