haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update renderBootstrap's docs for Bootstrap 2.0.

Browse Source
This commit is contained in:
Felipe Lessa 2012-02-16 11:47:27 -02:00
parent 221c5a35c7
commit e1066b622a
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
yesod-form/Yesod/Form/Functions.hs
View File

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