diagrams-lib 1.1.0.3 → 1.1.0.4

raw patch · 6 files changed

+16/−11 lines, 6 filesdep ~intervals

Dependency ranges changed: intervals

Files

CHANGES.markdown +7/−0
diagrams-lib.cabal +2/−2
src/Diagrams/Parametric.hs +1/−1
src/Diagrams/Segment.hs +2/−2
src/Diagrams/Trail.hs +1/−1
src/Diagrams/TwoD/Arrow.hs +3/−5

CHANGES.markdown view

@@ -1,3 +1,10 @@+1.1.0.4 (4 April 2014)+----------------------++  - Require `intervals-0.7`+  - Give `connectOutside` a reasonable behavior even when one or both+    endpoints has no trace+ 1.1.0.3 (19 March 2014) ----------------------

diagrams-lib.cabal view

@@ -1,5 +1,5 @@ Name:                diagrams-lib-Version:             1.1.0.3+Version:             1.1.0.4 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@@ -102,7 +102,7 @@                        data-default-class < 0.1,                        pretty >= 1.0.1.2 && < 1.2,                        fingertree >= 0.1 && < 0.2,-                       intervals >= 0.3 && < 0.5,+                       intervals >= 0.7 && < 0.8,                        lens >= 4.0 && < 4.2,                        tagged >= 0.7,                        optparse-applicative >= 0.7 && < 0.9,

src/Diagrams/Parametric.hs view

@@ -25,7 +25,7 @@ import           Diagrams.Core  import           Data.VectorSpace-import qualified Numeric.Interval   as I+import qualified Numeric.Interval.Kaucher   as I  -- | Codomain of parametric classes.  This is usually either @(V p)@, for relative --   vector results, or @(Point (V p))@, for functions with absolute coordinates.

src/Diagrams/Segment.hs view

@@ -71,8 +71,8 @@ import           Data.Monoid.MList import           Data.Semigroup import           Data.VectorSpace    hiding (Sum (..))-import           Numeric.Interval    (Interval (..))-import qualified Numeric.Interval    as I+import           Numeric.Interval.Kaucher    (Interval (..))+import qualified Numeric.Interval.Kaucher    as I  import           Diagrams.Core import           Diagrams.Located

src/Diagrams/Trail.hs view

@@ -112,7 +112,7 @@ import           Data.Monoid.MList import           Data.Semigroup import           Data.VectorSpace    hiding (Sum (..))-import qualified Numeric.Interval    as I+import qualified Numeric.Interval.Kaucher    as I  import           Diagrams.Core       hiding ((|>)) import           Diagrams.Located

src/Diagrams/TwoD/Arrow.hs view

@@ -530,9 +530,7 @@   withName n2 $ \b2 ->     let v = location b2 .-. location b1         midpoint = location b1 .+^ (v/2)-        s' = traceP midpoint (-v) b1-        e' = traceP midpoint v b2+        s' = fromMaybe (location b1) $ traceP midpoint (-v) b1+        e' = fromMaybe (location b2) $ traceP midpoint v b2     in-      case (s', e') of-        (Just s,  Just e)  -> atop (arrowBetween' opts s e)-        (_, _)             -> id+      atop (arrowBetween' opts s' e')