From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Feb 2013 01:41:09 +0000 (-0500)
Subject: Add a Normed instance for Float.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=numerical-analysis.git;a=commitdiff_plain;h=e505e7e507758201f9b1af450b987d9cb0e6a640

Add a Normed instance for Float.
---

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