diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs index bd3b5003..5fd03e6a 100644 --- a/yesod-form/Yesod/Form/Functions.hs +++ b/yesod-form/Yesod/Form/Functions.hs @@ -34,6 +34,7 @@ module Yesod.Form.Functions , renderDivs , renderDivsNoLabels , renderBootstrap + , renderBootstrap2 -- * Validation , check , checkBool @@ -426,8 +427,10 @@ $forall view <- views -- > ^{formWidget} -- >
-- > -renderBootstrap :: Monad m => FormRender m a -renderBootstrap aform fragment = do +-- +-- Since 1.3.14 +renderBootstrap2 :: Monad m => FormRender m a +renderBootstrap2 aform fragment = do (res, views') <- aFormToForm aform let views = views' [] has (Just _) = True @@ -446,6 +449,10 @@ renderBootstrap aform fragment = do #{err} |] return (res, widget) + +-- | Deprecated synonym for 'renderBootstrap2'. +renderBootstrap :: Monad m => FormRender m a +renderBootstrap = renderBootstrap2 {-# DEPRECATED renderBootstrap "Please use the Yesod.Form.Bootstrap3 module." #-} check :: (Monad m, RenderMessage (HandlerSite m) msg) diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal index db225636..11b852fd 100644 --- a/yesod-form/yesod-form.cabal +++ b/yesod-form/yesod-form.cabal @@ -1,5 +1,5 @@ name: yesod-form -version: 1.3.13 +version: 1.3.14 license: MIT license-file: LICENSE author: Michael Snoyman