diff options
Diffstat (limited to 'test/Util.hs')
| -rw-r--r-- | test/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Util.hs b/test/Util.hs index 7c06b2f..34cf8ab 100644 --- a/test/Util.hs +++ b/test/Util.hs @@ -42,7 +42,7 @@ class AlmostEq f where almostEq :: (AlmostEqConstr f a, Ord a, Show a, Fractional a, MonadTest m) => a -> f a -> f a -> m () -instance KnownNat n => AlmostEq (OR.Array n) where +instance AlmostEq (OR.Array n) where type AlmostEqConstr (OR.Array n) = OR.Unbox almostEq atol lhs rhs | OR.allA (< atol) (OR.zipWithA (\a b -> abs (a - b)) rhs lhs) = |