diff --git a/yesod-form/Yesod/Form/Bootstrap3.hs b/yesod-form/Yesod/Form/Bootstrap3.hs index ceec0da6..1336952c 100644 --- a/yesod-form/Yesod/Form/Bootstrap3.hs +++ b/yesod-form/Yesod/Form/Bootstrap3.hs @@ -30,6 +30,8 @@ import Yesod.Form.Functions -- | Create a new 'FieldSettings' with the classes that are -- required by Bootstrap v3. +-- +-- Since: yesod-form 1.3.8 bfs :: RenderMessage site msg => msg -> FieldSettings site bfs msg = FieldSettings (SomeMessage msg) Nothing Nothing Nothing [("class", "form-control")] @@ -38,24 +40,32 @@ bfs msg = -- | Add a placeholder attribute to a field. If you need i18n -- for the placeholder, currently you\'ll need to do a hack and -- use 'getMessageRender' manually. +-- +-- Since: yesod-form 1.3.8 withPlaceholder :: Text -> FieldSettings site -> FieldSettings site withPlaceholder placeholder fs = fs { fsAttrs = newAttrs } where newAttrs = ("placeholder", placeholder) : fsAttrs fs -- | Add an autofocus attribute to a field. +-- +-- Since: yesod-form 1.3.8 withAutofocus :: FieldSettings site -> FieldSettings site withAutofocus fs = fs { fsAttrs = newAttrs } where newAttrs = ("autofocus", "autofocus") : fsAttrs fs -- | Add the @input-lg@ CSS class to a field. +-- +-- Since: yesod-form 1.3.8 withLargeInput :: FieldSettings site -> FieldSettings site withLargeInput fs = fs { fsAttrs = newAttrs } where newAttrs = ("class", " input-lg ") : fsAttrs fs -- | Add the @input-sm@ CSS class to a field. +-- +-- Since: yesod-form 1.3.8 withSmallInput :: FieldSettings site -> FieldSettings site withSmallInput fs = fs { fsAttrs = newAttrs } where newAttrs = ("class", " input-sm ") : fsAttrs fs @@ -63,6 +73,8 @@ withSmallInput fs = fs { fsAttrs = newAttrs } -- | How many bootstrap grid columns should be taken (see -- 'BootstrapFormLayout'). +-- +-- Since: yesod-form 1.3.8 data BootstrapGridOptions = ColXs !Int | ColSm !Int @@ -103,6 +115,8 @@ addGO (ColLg _) _ = error "Yesod.Form.Bootstrap.addGO: never here" -- | The layout used for the bootstrap form. +-- +-- Since: yesod-form 1.3.8 data BootstrapFormLayout = BootstrapBasicForm | BootstrapInlineForm @@ -122,6 +136,8 @@ data BootstrapFormLayout = -- >
-- > ^{formWidget} -- > ^{bootstrapSubmit MsgSubmit} +-- +-- Since: yesod-form 1.3.8 renderBootstrap3 :: Monad m => BootstrapFormLayout -> FormRender m a renderBootstrap3 formLayout aform fragment = do (res, views') <- aFormToForm aform @@ -180,6 +196,8 @@ helpWidget view = [whamlet| -- | How the 'bootstrapSubmit' button should be rendered. +-- +-- Since: yesod-form 1.3.8 data BootstrapSubmit msg = BootstrapSubmit { bsValue :: msg @@ -211,6 +229,8 @@ instance IsString msg => IsString (BootstrapSubmit msg) where -- Alternatively, you may also just create the submit button -- manually as well in order to have more control over its -- layout. +-- +-- Since: yesod-form 1.3.8 bootstrapSubmit :: (RenderMessage site msg, HandlerSite m ~ site, MonadHandler m) => BootstrapSubmit msg -> AForm m () @@ -220,6 +240,8 @@ bootstrapSubmit = formToAForm . liftM (second return) . mbootstrapSubmit -- | Same as 'bootstrapSubmit' but for monadic forms. This isn't -- as useful since you're not going to use 'renderBootstrap3' -- anyway. +-- +-- Since: yesod-form 1.3.8 mbootstrapSubmit :: (RenderMessage site msg, HandlerSite m ~ site, MonadHandler m) => BootstrapSubmit msg -> MForm m (FormResult (), FieldView site) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index 9b9824cf..a16a8e52 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.3.7 +version: 1.3.8 license: MIT license-file: LICENSE author: Michael Snoyman