From 58a2d6561a1806bd656e495f83fe3ed99f874ac6 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Thu, 22 Aug 2013 16:04:17 -0400 Subject: [PATCH] reinstate Num and Fractional instances for R2 These are actually needed by cubicSpline --- not to compile it but to *call* it. --- src/Diagrams/TwoD/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Diagrams/TwoD/Types.hs b/src/Diagrams/TwoD/Types.hs index 269cdd7d..71897f3f 100644 --- a/src/Diagrams/TwoD/Types.hs +++ b/src/Diagrams/TwoD/Types.hs @@ -36,8 +36,8 @@ import Diagrams.Core import Diagrams.Util (tau) import Control.Newtype - import Data.Basis +import Data.NumInstances.Tuple () import Data.VectorSpace import Data.Typeable @@ -74,7 +74,7 @@ import Data.Typeable -- @ newtype R2 = R2 { unR2 :: (Double, Double) } - deriving (AdditiveGroup, Eq, Ord, Typeable) + deriving (AdditiveGroup, Eq, Ord, Typeable, Num, Fractional) instance Show R2 where showsPrec p (R2 (x,y)) = showParen (p >= 7) $