From 8878aaaf649962f4360a94109a674da756ad2202 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 8 Jan 2015 13:54:23 +0100 Subject: update base to ghc-7.10 --- packages/base/src/Numeric/LinearAlgebra/Algorithms.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'packages/base/src/Numeric/LinearAlgebra/Algorithms.hs') diff --git a/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs b/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs index 02ac6a0..a113d48 100644 --- a/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs +++ b/packages/base/src/Numeric/LinearAlgebra/Algorithms.hs @@ -935,10 +935,9 @@ relativeError' x y = dig (norm (x `sub` y) / norm x) dig r = round $ -logBase 10 (realToFrac r :: Double) -relativeError :: (Normed c t, Num (c t)) => NormType -> c t -> c t -> Double -relativeError t a b = realToFrac r +relativeError :: Num a => (a -> Double) -> a -> a -> Double +relativeError norm a b = r where - norm = pnorm t na = norm a nb = norm b nab = norm (a-b) -- cgit v1.2.3