
Hello all, I'm new to Yesod, and I'm trying to render my forms like this: http://www.stylephreak.com/uploads/source/cssforms/cssform.php. This has two main requirements: Use divs instead of tables, and specify whether the field is required or optional. This is what I have so far: fieldsToDivs :: FormField sub y a -> Form sub y a fieldsToDivs = mapFormXml $ mapM_ go where go fi = do let cls = string $ if fieldRequired fi then "fm-req" else "fm-opt" wrapWidget (fiInput fi) $ \w -> [$hamlet| %div!class=$cls$ %label!for=$fiIdent.fi$ $fiLabel.fi$ .tooltip $fiTooltip.fi$ ^w^ $maybe fiErrors.fi err %div.errors $err$ |] fieldRequired _ = True I'm not sure how to implement fieldRequired. Is there a way to infer required/optional from FieldInfo? Would it make sense to add fiRequired :: Bool to FieldInfo? thanks, -matt