From 4ebaa31d90876a575f9d23e2c10ee9152ff574d6 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Thu, 16 Feb 2012 12:11:57 -0200
Subject: [PATCH] Support Bootstrap 2.0 on renderBootstrap.

---
 yesod-form/Yesod/Form/Functions.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs
index fe33b89c..3758f51f 100644
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@@ -317,9 +317,9 @@ renderBootstrap aform fragment = do
     let widget = [whamlet|
 \#{fragment}
 $forall view <- views
-    <div .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
-        <label for=#{fvId view}>#{fvLabel view}
-        <div.input>
+    <div .control-group .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
+        <label .control-label for=#{fvId view}>#{fvLabel view}
+        <div .controls .input>
             ^{fvInput view}
             $maybe tt <- fvTooltip view
                 <span .help-block>#{tt}