From 34b8929083da850f6060370853e89d1ca7c5eeb3 Mon Sep 17 00:00:00 2001 From: Dan Frumin Date: Fri, 16 Aug 2013 09:39:23 +0000 Subject: [PATCH] Manually written Transformable instance for SegTree --- src/Diagrams/Trail.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Diagrams/Trail.hs b/src/Diagrams/Trail.hs index 2bd60bb2..470c13fa 100644 --- a/src/Diagrams/Trail.hs +++ b/src/Diagrams/Trail.hs @@ -147,8 +147,10 @@ deriving instance (OrderedField (Scalar v), InnerSpace v) => Monoid (SegTree v) deriving instance (OrderedField (Scalar v), InnerSpace v) => FT.Measured (SegMeasure v) (SegTree v) -deriving instance (HasLinearMap v, InnerSpace v, OrderedField (Scalar v)) - => Transformable (SegTree v) + +instance (HasLinearMap v, InnerSpace v, OrderedField (Scalar v)) + => Transformable (SegTree v) where + transform t = SegTree . transform t . getSegTree type instance Codomain (SegTree v) = v