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| -
-
-

Fehler: -
    - $forall errmsg <- errorMsgs -
  • #{errmsg} - ^{widget} - |] - ) + (FormFailure errorMsgs, widget) _ -> (result, widget) where validateSheet :: MsgRenderer -> SheetForm -> [Text]