We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 87651ae commit 49d6195Copy full SHA for 49d6195
test/ArrayFire/ArithSpec.hs
@@ -98,9 +98,9 @@ shouldBeEps :: Array Double -> Array Double -> Expectation
98
actual `shouldBeEps` expected = expect err_msg (cmpEps actual expected)
99
where
100
err_msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual
101
- cmpEps x y =
+ cmpEps a b =
102
let x :: Double
103
- x = fromIntegral $ Prelude.abs $ x - y
+ x = fromIntegral $ Prelude.abs $ a - b
104
in x <= 1e-14
105
106
expect :: String -> Bool -> Expectation
0 commit comments