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

added (css) class name to FieldSettings

Browse Source
This commit is contained in:
Pascal Wittmann 2011-10-25 17:51:23 +02:00
parent 0452ee4527
commit bdd0f80083
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-form/Yesod/Form/Types.hs
View File

@ -99,10 +99,11 @@ data FieldSettings msg = FieldSettings
, fsTooltip :: Maybe msg , fsTooltip :: Maybe msg
, fsId :: Maybe Text , fsId :: Maybe Text
, fsName :: Maybe Text , fsName :: Maybe Text
, fsClass :: Text
} }
instance (a ~ Text) => IsString (FieldSettings a) where instance (a ~ Text) => IsString (FieldSettings a) where
fromString s = FieldSettings (fromString s) Nothing Nothing Nothing fromString s = FieldSettings (fromString s) Nothing Nothing Nothing ""
data FieldView sub master = FieldView data FieldView sub master = FieldView
{ fvLabel :: Html { fvLabel :: Html
@ -115,8 +116,9 @@ data FieldView sub master = FieldView
data Field sub master a = Field data Field sub master a = Field
{ fieldParse :: [Text] -> GGHandler sub master IO (Either (SomeMessage master) (Maybe a)) { fieldParse :: [Text] -> GGHandler sub master IO (Either (SomeMessage master) (Maybe a))
-- | ID, name, (invalid text OR legimiate result), required? -- | ID, name, class, (invalid text OR legimiate result), required?
, fieldView :: Text , fieldView :: Text
-> Text
-> Text -> Text
-> Either Text a -> Either Text a
-> Bool -> Bool