Skip to content

Commit

Permalink
reinstate Num and Fractional instances for R2
Browse files Browse the repository at this point in the history
These are actually needed by cubicSpline --- not to compile it but
to *call* it.
  • Loading branch information
Brent Yorgey committed Aug 22, 2013
1 parent a237b6c commit 58a2d65
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Diagrams/TwoD/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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) $
Expand Down

0 comments on commit 58a2d65

Please sign in to comment.