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

Fixbuild linter

Browse Source
This commit is contained in:
SJost 2019-03-04 10:21:30 +01:00
parent d8fcbcef54
commit 158cd180c5
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/Utils/Form.hs
View File

@ -501,7 +501,7 @@ boolField = Field
"true" -> Right $ Just True "true" -> Right $ Just True
"false" -> Right $ Just False "false" -> Right $ Just False
t -> Left $ SomeMessage $ MsgInvalidBool t t -> Left $ SomeMessage $ MsgInvalidBool t
showVal = either (\_ -> False) showVal = either $ const False