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

Merge pull request #1129 from silky/master

Browse Source 
Add error class when help text is an error.
This commit is contained in:
Greg Weber 2015-12-28 20:18:43 -08:00
commit 5dff4adf86
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

@ -191,7 +191,7 @@ helpWidget view = [whamlet|
$maybe tt <- fvTooltip view $maybe tt <- fvTooltip view
<span .help-block>#{tt} <span .help-block>#{tt}
$maybe err <- fvErrors view $maybe err <- fvErrors view
<span .help-block>#{err} <span .help-block .error-block>#{err}
|] |]
@ -314,4 +314,4 @@ bootstrapSubmitId = "b:ootstrap___unique__:::::::::::::::::submit-id"
-- > <$> areq textField nameSettings Nothing -- > <$> areq textField nameSettings Nothing
-- > where nameSettings = withAutofocus $ -- > where nameSettings = withAutofocus $
-- > withPlaceholder "First name" $ -- > withPlaceholder "First name" $
-- > (bfs ("Name" :: Text)) -- > (bfs ("Name" :: Text))