Transform the arrow shaft style

Fixes #274
diagrams · Jun 6, 2016 · fecd3d4 · fecd3d4
1 parent 98a047e
commit fecd3d4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Diagrams/TwoD/Arrow.hs b/src/Diagrams/TwoD/Arrow.hs
@@ -425,7 +425,7 @@ arrow' opts len = mkQD' (DelayedLeaf delayedArrow)
         opts' = opts
           & headStyle  %~ maybe id fillTexture globalLC
           & tailStyle  %~ maybe id fillTexture globalLC
-          & shaftStyle %~ applyStyle sty
+          & shaftStyle %~ applyStyle sty . transform tr
 
         -- The head size, tail size, head gap, and tail gap are obtained
         -- from the style and converted to output units.