From 158cd180c54d39252f6783fe2ea86dd3d7f0659d Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Mon, 4 Mar 2019 10:21:30 +0100
Subject: [PATCH] Fixbuild linter

---
 src/Handler/Utils/Form.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index af7379f8c..ebabd7b0d 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -501,7 +501,7 @@ boolField = Field
       "true" -> Right $ Just True
       "false" -> Right $ Just False
       t -> Left $ SomeMessage $ MsgInvalidBool t
-    showVal = either (\_ -> False)
+    showVal = either $ const False