From 1d95f8315b390ae16063d23e173960942c062ae4 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 15 May 2018 12:51:14 -0700 Subject: [PATCH] Remove unnecessary type annotation --- yesod-form/Yesod/Form/Functions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index de6d40b2..89d6451c 100644 --- a/yesod-form/Yesod/Form/Functions.hs +++ b/yesod-form/Yesod/Form/Functions.hs @@ -631,7 +631,7 @@ removeClass :: Text -- ^ The class to remove -> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] 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 -- | 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 -> [(Text, Text)] -- ^ List of existing 'fsAttrs' -> [(Text, Text)] -addClass klass [] = [("class"::Text, klass)] +addClass klass [] = [("class", klass)] addClass klass (("class", old):rest) = ("class", T.concat [old, " ", klass]) : rest addClass klass (other :rest) = other : addClass klass rest