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

persistent 0.1

Browse Source
This commit is contained in:
Michael Snoyman 2010-06-27 17:42:05 +03:00
parent b8c74e86ff
commit e4dd6ddd2c
4 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Formable.hs
View File

@ -26,7 +26,7 @@ import Text.Hamlet
import Data.Time (Day) import Data.Time (Day)
import Control.Applicative import Control.Applicative
import Database.Persist (PersistField) import Database.Persist (PersistField)
import Database.Persist.Helper (EntityDef (..)) import Database.Persist.Base (EntityDef (..))
import Data.Char (isAlphaNum, toUpper, isUpper) import Data.Char (isAlphaNum, toUpper, isUpper)
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax
import Control.Monad (liftM, join) import Control.Monad (liftM, join)

6
Yesod/Helpers/Crud.hs
View File

@ -153,8 +153,10 @@ 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, PersistMonad i ~ YesodDB a) defaultCrud
=> a -> Crud a i :: (PersistEntity i, PersistBackend (YesodDB a (GHandler (Crud a i) a)),
YesodPersist a)
=> a -> Crud a i
defaultCrud = const Crud defaultCrud = const Crud
{ crudSelect = runDB $ select [] [] { crudSelect = runDB $ select [] []
, crudReplace = \a -> runDB . replace a , crudReplace = \a -> runDB . replace a

4
Yesod/Yesod.hs
View File

@ -8,7 +8,7 @@ module Yesod.Yesod
, YesodSite (..) , YesodSite (..)
-- ** Persistence -- ** Persistence
, YesodPersist (..) , YesodPersist (..)
, PersistEntity (..) , module Database.Persist
-- ** Breadcrumbs -- ** Breadcrumbs
, YesodBreadcrumbs (..) , YesodBreadcrumbs (..)
, breadcrumbs , breadcrumbs
@ -30,7 +30,7 @@ import Web.ClientSession (getKey, defaultKeyFile)
import qualified Web.ClientSession as CS import qualified Web.ClientSession as CS
import Data.Monoid (mempty) import Data.Monoid (mempty)
import Data.ByteString.UTF8 (toString) import Data.ByteString.UTF8 (toString)
import Database.Persist (PersistEntity (..)) import Database.Persist
import Web.Routes.Quasi (QuasiSite (..), Routes) import Web.Routes.Quasi (QuasiSite (..), Routes)

4
yesod.cabal
View File

@ -1,5 +1,5 @@
name: yesod name: yesod
version: 0.3.1.1 version: 0.4.0
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>
@ -40,7 +40,7 @@ library
control-monad-attempt >= 0.3 && < 0.4, control-monad-attempt >= 0.3 && < 0.4,
cereal >= 0.2 && < 0.3, cereal >= 0.2 && < 0.3,
old-locale >= 1.0.0.2 && < 1.1, old-locale >= 1.0.0.2 && < 1.1,
persistent >= 0.0.0 && < 0.1 persistent >= 0.1.0 && < 0.2
exposed-modules: Yesod exposed-modules: Yesod
Yesod.Content Yesod.Content
Yesod.Dispatch Yesod.Dispatch