From 8d293548186c6c5f2f1f6992dc9b59b2c97bbcd0 Mon Sep 17 00:00:00 2001 From: SJost Date: Fri, 22 Feb 2019 08:15:45 +0100 Subject: [PATCH] Fix build for hlint once again --- src/Handler/Admin.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs index 77c7c42de..620470def 100644 --- a/src/Handler/Admin.hs +++ b/src/Handler/Admin.hs @@ -69,7 +69,7 @@ makeDemoForm n = identifyForm "adminTestForm" $ \html -> do -- Important: used i _otherwise -> (result, widget) where validateResult :: (Int,Bool,Double) -> [Text] - validateResult (i,True,d) | (fromIntegral i) >= d = [tshow d <> " ist nicht größer als " <> tshow i, "Zweite Fehlermeldung", "Dritte Fehlermeldung"] + validateResult (i,True,d) | fromIntegral i >= d = [tshow d <> " ist nicht größer als " <> tshow i, "Zweite Fehlermeldung", "Dritte Fehlermeldung"] validateResult _other = []