diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index 84c42c8b..5fe123ee 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 (..) @@ -407,11 +408,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 @@ -429,11 +436,13 @@ $newline never