Add a Normed instance for Float.

diff --git a/src/Normed.hs b/src/Normed.hs
index 7f4131aee78958b0938c907855a840ada4b47dfe..0187df916de7fd5d08338fc192504428c0668153 100644 (file)
--- a/src/Normed.hs
+++ b/src/Normed.hs
@@ -32,6 +32,10 @@ instance Epsilon e => Normed (BigFloat e) where
   norm_p _ = fromRational . toRational
   norm_infty = fromRational . toRational
 
+instance Normed Float where
+  norm_p _ = fromRational . toRational
+  norm_infty = fromRational . toRational
+
 instance Normed Double where
   norm_p _ = fromRational . toRational
   norm_infty = fromRational . toRational