Update renderBootstrap's docs for Bootstrap 2.0.

This commit is contained in:
Felipe Lessa 2012-02-16 11:47:27 -02:00
parent 221c5a35c7
commit e1066b622a

View File

@ -297,17 +297,17 @@ $forall view <- views
-- --
-- Sample Hamlet: -- Sample Hamlet:
-- --
-- > <form method=post action=@{ActionR} enctype=#{formEnctype}> -- > <form .form-horizontal method=post action=@{ActionR} enctype=#{formEnctype}>
-- > <fieldset> -- > <fieldset>
-- > <legend>_{MsgLegend} -- > <legend>_{MsgLegend}
-- > $case result -- > $case result
-- > $of FormFailure reasons -- > $of FormFailure reasons
-- > $forall reason <- reasons -- > $forall reason <- reasons
-- > <div .alert-message .error>#{reason} -- > <div .alert .alert-error>#{reason}
-- > $of _ -- > $of _
-- > ^{formWidget} -- > ^{formWidget}
-- > <div .actions> -- > <div .actions>
-- > <input .btn .primary type=submit value=_{MsgSubmit}> -- > <input .btn .primary type=submit value=_{MsgSubmit}>
renderBootstrap :: FormRender sub master a renderBootstrap :: FormRender sub master a
renderBootstrap aform fragment = do renderBootstrap aform fragment = do
(res, views') <- aFormToForm aform (res, views') <- aFormToForm aform