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

Remove unnecessary type annotation

Browse Source
This commit is contained in:
Ben Sima 2018-05-15 12:51:14 -07:00
parent e906768ee9
commit 1d95f8315b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -631,7 +631,7 @@ removeClass :: Text -- ^ The class to remove
-> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] -- ^ List of existing 'fsAttrs'
-> [(Text, Text)] -> [(Text, Text)]
removeClass _ [] = [] removeClass _ [] = []
removeClass klass (("class", old):rest) = ("class"::Text, T.replace klass " " old) : rest removeClass klass (("class", old):rest) = ("class", T.replace klass " " old) : rest
removeClass klass (other :rest) = other : removeClass klass rest 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'.
@ -645,6 +645,6 @@ removeClass klass (other :rest) = other : removeClass klass rest
addClass :: Text -- ^ The class to add addClass :: Text -- ^ The class to add
-> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] -- ^ List of existing 'fsAttrs'
-> [(Text, Text)] -> [(Text, Text)]
addClass klass [] = [("class"::Text, klass)] addClass klass [] = [("class", klass)]
addClass klass (("class", old):rest) = ("class", T.concat [old, " ", klass]) : rest addClass klass (("class", old):rest) = ("class", T.concat [old, " ", klass]) : rest
addClass klass (other :rest) = other : addClass klass rest addClass klass (other :rest) = other : addClass klass rest