fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix build for hlint once again

Browse Source
This commit is contained in:
SJost 2019-02-22 08:15:45 +01:00
parent beda7f7015
commit 8d29354818
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Admin.hs
View File

@ -69,7 +69,7 @@ makeDemoForm n = identifyForm "adminTestForm" $ \html -> do -- Important: used i
_otherwise -> (result, widget) _otherwise -> (result, widget)
where where
validateResult :: (Int,Bool,Double) -> [Text] 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 = [] validateResult _other = []