Fixes #163

2018-08-29 10:04:16 +02:00 · 2018-08-29 10:04:16 +02:00 · 0d36bed457
commit 0d36bed457
parent e1fd052092
1 changed files with 1 additions and 11 deletions
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@ -134,17 +134,7 @@ makeSheetForm msId template = identForm FIDsheet $ \html -> do
      FormSuccess sheetResult
        | errorMsgs <- validateSheet mr sheetResult
        , not $ null errorMsgs ->
-            (FormFailure errorMsgs,
-                  [whamlet|
-                    <div class="alert alert-danger">
-                      <div class="alert__content">
-                        <h4> Fehler:
-                        <ul>
-                          $forall errmsg <- errorMsgs
-                            <li> #{errmsg}
-                    ^{widget}
-                  |]
-                )
+            (FormFailure errorMsgs, widget)
      _ -> (result, widget)
  where
    validateSheet :: MsgRenderer -> SheetForm -> [Text]