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

diff --git a/src/Normed.hs b/src/Normed.hs
index 7f4131a..0187df9 100644
--- 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