diff --git a/Yesod/Helpers/Crud.hs b/Yesod/Helpers/Crud.hs index 38390976..f590c5e0 100644 --- a/Yesod/Helpers/Crud.hs +++ b/Yesod/Helpers/Crud.hs @@ -12,7 +12,8 @@ module Yesod.Helpers.Crud , defaultCrud ) where -import Yesod.Yesod +-- import Yesod +import Yesod.Core import Yesod.Widget import Yesod.Dispatch import Yesod.Content @@ -20,7 +21,7 @@ import Yesod.Handler import Text.Hamlet import Yesod.Form import Language.Haskell.TH.Syntax - +import Yesod.Persist -- | An entity which can be displayed by the Crud subsite. class Item a where -- | The title of an entity, to be displayed in the list of all entities. @@ -137,7 +138,7 @@ getCrudDeleteR s = do
Do you really want to delete #{itemTitle item}?
- \ + \ No |] @@ -190,13 +191,13 @@ crudHelper title me isPost = do \#{hidden} $maybe e <- me - \ + \ Delete |] -- | A default 'Crud' value which relies about persistent and "Yesod.Form". defaultCrud - :: (PersistEntity i, PersistBackend (YesodDB a (GHandler (Crud a i) a)), + :: (PersistEntity i, PersistBackend (YesodDB a (GGHandler (Crud a i) a IO)), YesodPersist a) => a -> Crud a i defaultCrud = const Crud diff --git a/yesod-form.cabal b/yesod-form.cabal index e27ba8ab..939eea9e 100644 --- a/yesod-form.cabal +++ b/yesod-form.cabal @@ -16,6 +16,7 @@ library , yesod-core >= 0.7 && < 0.8 , time >= 1.1.4 && < 1.3 , hamlet >= 0.7 && < 0.8 + , yesod-persistent >= 0.0.0.0 && < 0.0.1 , persistent >= 0.4 && < 0.5 , template-haskell , transformers >= 0.2.2 && < 0.3 @@ -33,6 +34,7 @@ library Yesod.Form.Jquery Yesod.Form.Nic Yesod.Form.Profiles + Yesod.Helpers.Crud ghc-options: -Wall source-repository head