parse failure fix

Author: chessai

test/ArrayFire/ArithSpec.hs

@@ -96,7 +96,7 @@ spec =
 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)
+    err_msg = "expected: " ++ show expected ++ "\n but got: " ++ show actual
     cmpEps =
       let x :: Double
           x = fromIntegral $ abs $ actual - expected