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

Do not display FormFailures as they contain duplicates of field failures.

Browse Source
This commit is contained in:
Felipe Lessa 2014-03-12 10:27:46 -03:00
parent 51fbc2a57b
commit a7a7764c97
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -155,7 +155,6 @@ renderBootstrap3 formLayout aform fragment = do
widget = [whamlet| widget = [whamlet|
$newline never $newline never
#{fragment} #{fragment}
^{formFailureWidget res}
$forall view <- views $forall view <- views
<div .form-group :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.has-error> <div .form-group :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.has-error>
$case formLayout $case formLayout
@ -183,16 +182,6 @@ renderBootstrap3 formLayout aform fragment = do
return (res, widget) return (res, widget)
-- | (Internal) Render form failures via alerts.
formFailureWidget :: FormResult a -> WidgetT site IO ()
formFailureWidget (FormFailure reasons) =
[whamlet|
$forall reason <- reasons
<div .alert .alert-danger>#{reason}
|]
formFailureWidget _ = return ()
-- | (Internal) Render a help widget for tooltips and errors. -- | (Internal) Render a help widget for tooltips and errors.
helpWidget :: FieldView site -> WidgetT site IO () helpWidget :: FieldView site -> WidgetT site IO ()
helpWidget view = [whamlet| helpWidget view = [whamlet|