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

derive standard classes for JqueryDay field

Browse Source
This commit is contained in:
Greg Weber 2010-07-16 09:41:06 -07:00
parent cb51f4fa8e
commit 8ca2f3e2b4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Form.hs
View File

@ -442,6 +442,14 @@ $$(function(){$$("#$name$").datepicker({dateFormat:'yy-mm-dd'})});
-- 'ToFormField' instance. -- 'ToFormField' instance.
newtype JqueryDay = JqueryDay { unJqueryDay :: Day } newtype JqueryDay = JqueryDay { unJqueryDay :: Day }
deriving PersistField deriving PersistField
instance Show JqueryDay where
show = show . unJqueryDay
instance Read JqueryDay where
readsPrec i s = let [(day, str)] = readsPrec i s :: [(Day, String)]
in [((JqueryDay day), str)]
instance Eq JqueryDay where
x == y = (unJqueryDay x) == (unJqueryDay y)
instance ToFormField JqueryDay where instance ToFormField JqueryDay where
toFormField = applyFormTypeWrappers JqueryDay unJqueryDay jqueryDayField toFormField = applyFormTypeWrappers JqueryDay unJqueryDay jqueryDayField
instance ToFormField (Maybe JqueryDay) where instance ToFormField (Maybe JqueryDay) where