From c242af6d0eb669ece1e08b76a373bebea1a3f822 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 15 Oct 2010 11:31:09 +0200
Subject: [PATCH] required/optional css class for fieldsToTable

---
 Yesod/Form.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Yesod/Form.hs b/Yesod/Form.hs
index 8a4a5a33..b6d58dfe 100644
--- a/Yesod/Form.hs
+++ b/Yesod/Form.hs
@@ -65,7 +65,7 @@ fieldsToTable = mapFormXml $ mapM_ go
   where
     go fi = do
         wrapWidget (fiInput fi) $ \w -> [$hamlet|
-%tr
+%tr.$clazz.fi$
     %td
         %label!for=$fiIdent.fi$ $fiLabel.fi$
         .tooltip $fiTooltip.fi$
@@ -74,6 +74,7 @@ fieldsToTable = mapFormXml $ mapM_ go
     $maybe fiErrors.fi err
         %td.errors $err$
 |]
+    clazz fi = if fiRequired fi then "required" else "optional"
 
 runFormGeneric :: Env
                -> FileEnv