From 0d36bed4576c8f3abf58dc1470d53b7b99181a48 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 29 Aug 2018 10:04:16 +0200
Subject: [PATCH] Fixes #163

---
 src/Handler/Sheet.hs | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 1335a25d0..c46a95095 100644
--- 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]