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