diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index f5c53386..831edc23 100644 --- a/yesod-form/Yesod/Form/Fields.hs +++ b/yesod-form/Yesod/Form/Fields.hs @@ -40,12 +40,13 @@ module Yesod.Form.Fields , fileAFormReq , fileAFormOpt -- * Options + -- $optionsOverview , selectField , selectFieldList , radioField , radioFieldList - , checkboxesFieldList , checkboxesField + , checkboxesFieldList , multiSelectField , multiSelectFieldList , Option (..) @@ -403,11 +404,17 @@ urlField = Field , fieldEnctype = UrlEncoded } +-- | Creates a @\@ tag for selecting one option. Example usage: +-- +-- > areq (selectField $ optionsPairs [(MsgValue1, "value1"),(MsgValue2, "value2")]) "Which value?" Nothing selectField :: (Eq a, RenderMessage site FormMessage) => HandlerT site IO (OptionList a) -> Field (HandlerT site IO) a @@ -425,11 +432,13 @@ $newline never