Replace (fromRational . toRational) with realToFrac everywhere.

[numerical-analysis.git] / src / Vector.hs

diff --git a/src/Vector.hs b/src/Vector.hs
index f55808b33f534283cf7ba432d667c72a6e565353..a4d3c13585bfba3b0b06a14506c0b025eb3cc3c4 100644 (file)
--- a/src/Vector.hs
+++ b/src/Vector.hs
@@ -143,7 +143,7 @@ instance (RealFloat a, Ord a, Vector v a) => Normed (Vn v a) where
   --   >>> norm_infty v1
   --   5
   --
-  norm_infty (Vn v1) = fromRational $ toRational $ V.foldl max 0 v1
+  norm_infty (Vn v1) = realToFrac $ V.foldl max 0 v1
 
   -- | Generic p-norms. The usual norm in R^n is (norm_p 2).
   --
@@ -156,7 +156,7 @@ instance (RealFloat a, Ord a, Vector v a) => Normed (Vn v a) where
   --   5.0
   --
   norm_p p (Vn v1) =
-    fromRational $ toRational $ root $ V.sum $ V.map (exponentiate . abs) v1
+    realToFrac $ root $ V.sum $ V.map (exponentiate . abs) v1
     where
       exponentiate = (** (fromIntegral p))
       root = (** (recip (fromIntegral p)))