From e35124f96fed8da8fbd3088c30d66824fd46fc96 Mon Sep 17 00:00:00 2001 From: Arash Rouhani Date: Sat, 22 Sep 2012 18:58:34 -0400 Subject: [PATCH] Use haddock for Yesod.Form.Types.Field --- yesod-form/Yesod/Form/Types.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs index 5864965c..9d2f56fc 100644 --- a/yesod-form/Yesod/Form/Types.hs +++ b/yesod-form/Yesod/Form/Types.hs @@ -125,12 +125,11 @@ data FieldView sub master = FieldView data Field sub master a = Field { fieldParse :: [Text] -> GHandler sub master (Either (SomeMessage master) (Maybe a)) - -- | ID, name, attrs, (invalid text OR legimiate result), required? - , fieldView :: Text - -> Text - -> [(Text, Text)] - -> Either Text a - -> Bool + , fieldView :: Text -- ^ ID + -> Text -- ^ Name + -> [(Text, Text)] -- ^ Attributes + -> Either Text a -- ^ Either (invalid text) or (legitimate result) + -> Bool -- ^ Required? -> GWidget sub master () }