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 [] []