From e6dbb92d4b9c21bfd1d4bbf18bc221fba556d3bc Mon Sep 17 00:00:00 2001
From: Simon Marlow <smarlow@fb.com>
Date: Mon, 16 Jun 2014 05:09:51 -0700
Subject: [PATCH] lint

Summary: From PR 5 on github

Test Plan: unit tests

Reviewed By: akr@fb.com

Subscribers: ldbrandy, jonp, smarlow, akr, bnitka, jcoens

FB internal diff: D1384641
---
 Haxl/Prelude.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Haxl/Prelude.hs b/Haxl/Prelude.hs
index 09f11e8..f32299c 100644
--- a/Haxl/Prelude.hs
+++ b/Haxl/Prelude.hs
@@ -89,7 +89,7 @@ class IfThenElse a b where
   ifThenElse :: a -> b -> b -> b
 
 instance IfThenElse Bool a where
-  ifThenElse b t e = case b of True -> t; False -> e
+  ifThenElse b t e = if b then t else e
 
 -- The equality constraint is necessary to convince the typechecker that
 -- this is valid: