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

Support Bootstrap 2.0 on renderBootstrap.

Browse Source
This commit is contained in:
Felipe Lessa 2012-02-16 12:11:57 -02:00
parent e1066b622a
commit 4ebaa31d90
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -317,9 +317,9 @@ renderBootstrap aform fragment = do
let widget = [whamlet| let widget = [whamlet|
\#{fragment} \#{fragment}
$forall view <- views $forall view <- views
<div .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error> <div .control-group .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
<label for=#{fvId view}>#{fvLabel view} <label .control-label for=#{fvId view}>#{fvLabel view}
<div.input> <div .controls .input>
^{fvInput view} ^{fvInput view}
$maybe tt <- fvTooltip view $maybe tt <- fvTooltip view
<span .help-block>#{tt} <span .help-block>#{tt}