haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

persistent changes

Browse Source
This commit is contained in:
Michael Snoyman 2010-06-20 11:18:54 +03:00
parent bc7fc91606
commit 31af9ec792
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Helpers/Crud.hs
View File

@ -153,8 +153,7 @@ crudHelper title me isPost = do
%a!href=@toMaster.CrudDeleteR.toSinglePiece.fst.e@ Delete %a!href=@toMaster.CrudDeleteR.toSinglePiece.fst.e@ Delete
|] |]
defaultCrud :: (PersistEntity i, YesodPersist a, defaultCrud :: (PersistEntity i, YesodPersist a, PersistMonad i ~ YesodDB a)
PersistMonad i ~ YesodDB a (GHandler (Crud a i) a))
=> a -> Crud a i => a -> Crud a i
defaultCrud = const Crud defaultCrud = const Crud
{ crudSelect = runDB $ select [] [] { crudSelect = runDB $ select [] []