diff --git a/yesod-form/Yesod/Form/Bootstrap3.hs b/yesod-form/Yesod/Form/Bootstrap3.hs index e78e4555..84e85fc8 100644 --- a/yesod-form/Yesod/Form/Bootstrap3.hs +++ b/yesod-form/Yesod/Form/Bootstrap3.hs @@ -155,7 +155,6 @@ renderBootstrap3 formLayout aform fragment = do widget = [whamlet| $newline never #{fragment} - ^{formFailureWidget res} $forall view <- views
$case formLayout @@ -183,16 +182,6 @@ renderBootstrap3 formLayout aform fragment = do return (res, widget) --- | (Internal) Render form failures via alerts. -formFailureWidget :: FormResult a -> WidgetT site IO () -formFailureWidget (FormFailure reasons) = - [whamlet| - $forall reason <- reasons -
#{reason} - |] -formFailureWidget _ = return () - - -- | (Internal) Render a help widget for tooltips and errors. helpWidget :: FieldView site -> WidgetT site IO () helpWidget view = [whamlet|