diagrams-lib 1.2 → 1.2.0.1

raw patch · 3 files changed

+11/−5 lines, 3 filesdep ~lens

Dependency ranges changed: lens

Files

CHANGES.markdown +6/−0
diagrams-lib.cabal +1/−1
src/Diagrams/TwoD/Arrow.hs +4/−4

CHANGES.markdown view

@@ -1,3 +1,9 @@+1.2.0.1 (4 June 2014)+---------------------++- Bug fix: arrow head and tail length and gaps specified with `Local`+  now work correctly ([#193](https://github.com/diagrams/diagrams-lib/issues/193)).+ 1.2 (27 May 2014) -----------------

diagrams-lib.cabal view

@@ -1,5 +1,5 @@ Name:                diagrams-lib-Version:             1.2+Version:             1.2.0.1 Synopsis:            Embedded domain-specific language for declarative graphics Description:         Diagrams is a flexible, extensible EDSL for creating                      graphics of many types.  Graphics can be created

src/Diagrams/TwoD/Arrow.hs view

@@ -412,10 +412,10 @@          -- 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