From 49d61955c088df6fc79104bcb601c247ddf6e084 Mon Sep 17 00:00:00 2001
From: chessai <chessai1996@gmail.com>
Date: Wed, 6 Nov 2019 18:05:58 -0500
Subject: [PATCH] fix name shadowing causing type error

---
 test/ArrayFire/ArithSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/ArrayFire/ArithSpec.hs b/test/ArrayFire/ArithSpec.hs
index dcfd6bd..1220087 100644
--- a/test/ArrayFire/ArithSpec.hs
+++ b/test/ArrayFire/ArithSpec.hs
@@ -98,9 +98,9 @@ shouldBeEps :: Array Double -> Array Double -> Expectation
 actual `shouldBeEps` expected = expect err_msg (cmpEps actual expected)
   where
     err_msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual
-    cmpEps x y =
+    cmpEps a b =
       let x :: Double
-          x = fromIntegral $ Prelude.abs $ x - y
+          x = fromIntegral $ Prelude.abs $ a - b
       in x <= 1e-14
 
 expect :: String -> Bool -> Expectation