Fixbuild linter

2019-03-04 10:21:30 +01:00 · 2019-03-04 10:21:30 +01:00 · 158cd180c5
commit 158cd180c5
parent d8fcbcef54
1 changed files with 1 additions and 1 deletions
--- 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