From e505e7e507758201f9b1af450b987d9cb0e6a640 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 4 Feb 2013 20:41:09 -0500 Subject: [PATCH] Add a Normed instance for Float. --- src/Normed.hs | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.43.2