From bdd0f8008386c804827d5f1afacf97e01bd1721b Mon Sep 17 00:00:00 2001
From: Pascal Wittmann <mail@pascal-wittmann.de>
Date: Tue, 25 Oct 2011 17:51:23 +0200
Subject: [PATCH] added (css) class name to FieldSettings

---
 yesod-form/Yesod/Form/Types.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs
index c84743fd..986d125f 100644
--- a/yesod-form/Yesod/Form/Types.hs
+++ b/yesod-form/Yesod/Form/Types.hs
@@ -99,10 +99,11 @@ data FieldSettings msg = FieldSettings
     , fsTooltip :: Maybe msg
     , fsId :: Maybe Text
     , fsName :: Maybe Text
+    , fsClass :: Text
     }
 
 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
     { fvLabel :: Html
@@ -115,8 +116,9 @@ data FieldView sub master = FieldView
 
 data Field sub master a = Field
     { 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
+                -> Text
                 -> Text
                 -> Either Text a
                 -> Bool