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

Use correct error classes on Bootstrap3 module.

Browse Source
This commit is contained in:
Felipe Lessa 2014-03-12 10:14:04 -03:00
parent c36dbf9302
commit 51fbc2a57b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-form/Yesod/Form/Bootstrap3.hs
View File

@ -157,7 +157,7 @@ renderBootstrap3 formLayout aform fragment = do
#{fragment} #{fragment}
^{formFailureWidget res} ^{formFailureWidget res}
$forall view <- views $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 $case formLayout
$of BootstrapBasicForm $of BootstrapBasicForm
$if fvId view /= bootstrapSubmitId $if fvId view /= bootstrapSubmitId
@ -188,7 +188,7 @@ formFailureWidget :: FormResult a -> WidgetT site IO ()
formFailureWidget (FormFailure reasons) = formFailureWidget (FormFailure reasons) =
[whamlet| [whamlet|
$forall reason <- reasons $forall reason <- reasons
<div .alert .alert-error>#{reason} <div .alert .alert-danger>#{reason}
|] |]
formFailureWidget _ = return () formFailureWidget _ = return ()