From 51fbc2a57b89dc0303d359ee3e359f046474428a Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Wed, 12 Mar 2014 10:14:04 -0300
Subject: [PATCH] Use correct error classes on Bootstrap3 module.

---
 yesod-form/Yesod/Form/Bootstrap3.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Bootstrap3.hs b/yesod-form/Yesod/Form/Bootstrap3.hs
index 210e0f7c..e78e4555 100644
--- a/yesod-form/Yesod/Form/Bootstrap3.hs
+++ b/yesod-form/Yesod/Form/Bootstrap3.hs
@@ -157,7 +157,7 @@ renderBootstrap3 formLayout aform fragment = do
             #{fragment}
             ^{formFailureWidget res}
             $forall view <- views
-              <div .form-group :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
+              <div .form-group :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.has-error>
                 $case formLayout
                   $of BootstrapBasicForm
                     $if fvId view /= bootstrapSubmitId
@@ -188,7 +188,7 @@ formFailureWidget :: FormResult a -> WidgetT site IO ()
 formFailureWidget (FormFailure reasons) =
     [whamlet|
         $forall reason <- reasons
-            <div .alert .alert-error>#{reason}
+            <div .alert .alert-danger>#{reason}
     |]
 formFailureWidget _ = return ()