[HLint] Eta reduce [1]
[HLint] Eta reduce [2]
[HLint] Eta reduce [3]
[HLint] Use uncurry.
[HLint] Redundant ==
[HLint] Use elem.
[HLint] Use exitSuccess.
[HLint] Use fromMaybe.