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

Add examples to addClass and removeClass

Browse Source
This commit is contained in:
Ben Sima 2018-05-14 08:45:09 -07:00
parent c163a0841a
commit e8a145ae88
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-form/Yesod/Form/Functions.hs
View File

@ -621,6 +621,12 @@ convertField to from (Field fParse fView fEnctype) = let
-- | Removes a CSS class from the 'fsAttrs' in a 'FieldSettings'. -- | Removes a CSS class from the 'fsAttrs' in a 'FieldSettings'.
-- --
-- ==== __Examples__
--
-- > removeFormControl :: FieldSettings site -> FieldSettings site
-- > removeFormControl fs = fs { fsAttrs = newAttrs }
-- > where newAttrs = removeClass "form-control" (fsAttrs fs)
--
-- @since 1.6.2 -- @since 1.6.2
removeClass :: Text -- ^ The class to remove removeClass :: Text -- ^ The class to remove
-> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] -- ^ List of existing 'fsAttrs'
@ -631,6 +637,12 @@ removeClass klass (other :rest) = other : removeClass klass rest
-- | Adds a CSS class to the 'fsAttrs' in a 'FieldSettings'. -- | Adds a CSS class to the 'fsAttrs' in a 'FieldSettings'.
-- --
-- ==== __Examples__
--
-- > withLargeInput :: FieldSettings site -> FieldSettings site
-- > withLargeInput fs = fs { fsAttrs = newAttrs }
-- > where newAttrs = addClass "input-lg" (fsAttrs fs)
--
-- @since 1.6.2 -- @since 1.6.2
addClass :: Text -- ^ The class to add addClass :: Text -- ^ The class to add
-> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] -- ^ List of existing 'fsAttrs'