Merge pull request #98 from co-dan/master

Changes required due to the introduction of Roles in GHC
diagrams · Aug 18, 2013 · e1f0223 · e1f0223
2 parents c10448a + 34b8929
commit e1f0223
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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