Skip to content

Commit 49d6195

Browse files
committed
fix name shadowing causing type error
1 parent 87651ae commit 49d6195

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

test/ArrayFire/ArithSpec.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -98,9 +98,9 @@ shouldBeEps :: Array Double -> Array Double -> Expectation
9898
actual `shouldBeEps` expected = expect err_msg (cmpEps actual expected)
9999
where
100100
err_msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual
101-
cmpEps x y =
101+
cmpEps a b =
102102
let x :: Double
103-
x = fromIntegral $ Prelude.abs $ x - y
103+
x = fromIntegral $ Prelude.abs $ a - b
104104
in x <= 1e-14
105105

106106
expect :: String -> Bool -> Expectation

0 commit comments

Comments
 (0)