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

Removed fiName

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-12 13:28:06 +02:00
parent 3052bad1c1
commit fd53c60fc9
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Yesod/Form/Core.hs
View File

@ -156,7 +156,6 @@ requiredFieldHelper (FieldProfile parse render mkWidget) ffs orig = GForm $ do
{ fiLabel = label { fiLabel = label
, fiTooltip = tooltip , fiTooltip = tooltip
, fiIdent = theId , fiIdent = theId
, fiName = name
, fiInput = mkWidget theId name val True , fiInput = mkWidget theId name val True
, fiErrors = case res of , fiErrors = case res of
FormFailure [x] -> Just $ string x FormFailure [x] -> Just $ string x
@ -188,7 +187,6 @@ optionalFieldHelper (FieldProfile parse render mkWidget) ffs orig' = GForm $ do
{ fiLabel = label { fiLabel = label
, fiTooltip = tooltip , fiTooltip = tooltip
, fiIdent = theId , fiIdent = theId
, fiName = name
, fiInput = mkWidget theId name val False , fiInput = mkWidget theId name val False
, fiErrors = case res of , fiErrors = case res of
FormFailure x -> Just $ string $ unlines x FormFailure x -> Just $ string $ unlines x
@ -212,7 +210,6 @@ data FieldInfo sub y = FieldInfo
{ fiLabel :: Html { fiLabel :: Html
, fiTooltip :: Html , fiTooltip :: Html
, fiIdent :: String , fiIdent :: String
, fiName :: String
, fiInput :: GWidget sub y () , fiInput :: GWidget sub y ()
, fiErrors :: Maybe Html , fiErrors :: Maybe Html
} }

3
Yesod/Form/Fields.hs
View File

@ -108,7 +108,6 @@ boolField ffs orig = GForm $ do
{ fiLabel = label { fiLabel = label
, fiTooltip = tooltip , fiTooltip = tooltip
, fiIdent = theId , fiIdent = theId
, fiName = name
, fiInput = addBody [$hamlet| , fiInput = addBody [$hamlet|
%input#$theId$!type=checkbox!name=$name$!:val:checked %input#$theId$!type=checkbox!name=$name$!:val:checked
|] |]
@ -158,7 +157,6 @@ selectField pairs ffs initial = GForm $ do
{ fiLabel = label { fiLabel = label
, fiTooltip = tooltip , fiTooltip = tooltip
, fiIdent = theId , fiIdent = theId
, fiName = name
, fiInput = addBody input , fiInput = addBody input
, fiErrors = case res of , fiErrors = case res of
FormFailure [x] -> Just $ string x FormFailure [x] -> Just $ string x
@ -201,7 +199,6 @@ maybeSelectField pairs ffs initial' = GForm $ do
{ fiLabel = label { fiLabel = label
, fiTooltip = tooltip , fiTooltip = tooltip
, fiIdent = theId , fiIdent = theId
, fiName = name
, fiInput = addBody input , fiInput = addBody input
, fiErrors = case res of , fiErrors = case res of
FormFailure [x] -> Just $ string x FormFailure [x] -> Just $ string x