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

required/optional css class for fieldsToTable

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-15 11:31:09 +02:00
parent 6119f8507e
commit c242af6d0e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Form.hs
View File

@ -65,7 +65,7 @@ fieldsToTable = mapFormXml $ mapM_ go
where where
go fi = do go fi = do
wrapWidget (fiInput fi) $ \w -> [$hamlet| wrapWidget (fiInput fi) $ \w -> [$hamlet|
%tr %tr.$clazz.fi$
%td %td
%label!for=$fiIdent.fi$ $fiLabel.fi$ %label!for=$fiIdent.fi$ $fiLabel.fi$
.tooltip $fiTooltip.fi$ .tooltip $fiTooltip.fi$
@ -74,6 +74,7 @@ fieldsToTable = mapFormXml $ mapM_ go
$maybe fiErrors.fi err $maybe fiErrors.fi err
%td.errors $err$ %td.errors $err$
|] |]
clazz fi = if fiRequired fi then "required" else "optional"
runFormGeneric :: Env runFormGeneric :: Env
-> FileEnv -> FileEnv