X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FNormed.hs;h=9bef7631221b9076fe57a261299c98147301233d;hb=c3905924154d9a8d56bdc57e2f36fe48b8524eef;hp=7f4131aee78958b0938c907855a840ada4b47dfe;hpb=e73e40c515938df4de629dbc88463c5d88bca7c8;p=numerical-analysis.git

diff --git a/src/Normed.hs b/src/Normed.hs
index 7f4131a..9bef763 100644
--- a/src/Normed.hs
+++ b/src/Normed.hs
@@ -25,13 +25,17 @@ instance Normed Integer where
   norm_infty = fromInteger
 
 instance Normed Rational where
-  norm_p _ = fromRational
-  norm_infty = fromRational
+  norm_p _ = realToFrac
+  norm_infty = realToFrac
 
 instance Epsilon e => Normed (BigFloat e) where
-  norm_p _ = fromRational . toRational
-  norm_infty = fromRational . toRational
+  norm_p _ = realToFrac
+  norm_infty = realToFrac
+
+instance Normed Float where
+  norm_p _ = realToFrac
+  norm_infty = realToFrac
 
 instance Normed Double where
-  norm_p _ = fromRational . toRational
-  norm_infty = fromRational . toRational
+  norm_p _ = realToFrac
+  norm_infty = realToFrac