transform Local Measure in arrow styles

closes #193
diagrams · Jun 4, 2014 · f057ada · f057ada
1 parent b31be6a
commit f057ada
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Diagrams/TwoD/Arrow.hs b/src/Diagrams/TwoD/Arrow.hs
@@ -412,10 +412,10 @@ arrow' opts len = mkQD' (DelayedLeaf delayedArrow)
 
         -- The head size, tail size, head gap, and tail gap are obtained
         -- from the style and converted to output units.
-        hSize = fromMeasure gToO nToO (opts ^. headLength)
-        tSize = fromMeasure gToO nToO (opts ^. tailLength)
-        hGap = fromMeasure gToO nToO (opts ^. headGap)
-        tGap = fromMeasure gToO nToO (opts ^. tailGap)
+        hSize = fromMeasure gToO nToO . transform tr $ opts ^. headLength
+        tSize = fromMeasure gToO nToO . transform tr $ opts ^. tailLength
+        hGap = fromMeasure gToO nToO . transform tr $ opts ^. headGap
+        tGap = fromMeasure gToO nToO . transform tr $ opts ^. tailGap
 
         -- Make the head and tail and save their widths.
         (h, hWidth') = mkHead hSize opts' gToO nToO