41faf62094
git-subtree-dir: yesod-examples git-subtree-mainline:2dc10de435git-subtree-split:851f928e55
16 lines
374 B
Haskell
16 lines
374 B
Haskell
{-# LANGUAGE TypeFamilies, QuasiQuotes, GeneralizedNewtypeDeriving #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
module MkToForm2 where
|
|
|
|
import Yesod
|
|
import Data.Time (Day)
|
|
|
|
mkPersist [$persist|
|
|
Entry
|
|
title String
|
|
day Day Desc toFormField=YesodJquery.jqueryDayField'
|
|
content Html toFormField=YesodNic.nicHtmlField
|
|
deriving
|
|
|]
|