graphviz 2999.18.1.1 → 2999.18.1.2
raw patch · 3 files changed
+18/−5 lines, 3 filesdep ~basedep ~dlistPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base, dlist
API changes (from Hackage documentation)
- Data.GraphViz.Types.Graph: instance (GHC.Read.Read n, GHC.Classes.Ord n) => GHC.Read.Read (Data.GraphViz.Types.Graph.NodeInfo n)
+ Data.GraphViz.Types.Graph: instance (GHC.Classes.Ord n, GHC.Read.Read n) => GHC.Read.Read (Data.GraphViz.Types.Graph.NodeInfo n)
Files
Changelog.md view
@@ -10,6 +10,13 @@ Changes in 2999.18.1.1 ---------------------- +* Allow dlist-0.8, thanks to **Sean Leather**.++* Properly allow QuickCheck-2.9.++Changes in 2999.18.1.1+----------------------+ * Bump allowed version of QuickCheck for the test suite. Changes in 2999.18.1.0
graphviz.cabal view
@@ -1,5 +1,5 @@ Name: graphviz-Version: 2999.18.1.1+Version: 2999.18.1.2 Stability: Beta Synopsis: Bindings to Graphviz for graph visualisation. Description: {@@ -71,7 +71,7 @@ transformers >= 0.2 && < 0.6, text, wl-pprint-text >= 1.1.0.0 && < 1.2.0.0,- dlist >= 0.5 && < 0.8+ dlist >= 0.5 && < 0.9 Exposed-Modules: Data.GraphViz Data.GraphViz.Types
tests/Data/GraphViz/Testing/Instances/Attributes.hs view
@@ -1,6 +1,6 @@ {-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_HADDOCK hide #-}-{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE CPP, OverloadedStrings #-} {- | Module : Data.GraphViz.Testing.Instances.Attributes@@ -27,7 +27,7 @@ import Data.GraphViz.Attributes.Internal (compassLookup) import Data.GraphViz.Internal.State (initialState, layerListSep, layerSep)-import Data.GraphViz.Internal.Util (bool, createVersion)+import Data.GraphViz.Internal.Util (bool) import Test.QuickCheck @@ -36,9 +36,13 @@ import qualified Data.Map as Map import Data.Text.Lazy (Text) import qualified Data.Text.Lazy as T-import Data.Version (Version (..)) import System.FilePath (searchPathSeparator) +#if !MIN_VERSION_QuickCheck(2,9,0)+import Data.GraphViz.Internal.Util (createVersion)+import Data.Version (Version (..))+#endif+ -- ----------------------------------------------------------------------------- -- Defining Arbitrary instances for Attributes @@ -1015,10 +1019,12 @@ shrink (NormalizedAngle a) = map NormalizedAngle $ shrink a shrink _ = [] +#if !MIN_VERSION_QuickCheck(2,9,0) instance Arbitrary Version where arbitrary = liftM (createVersion . map getPositive) arbList shrink = map createVersion . nonEmptyShrinks . versionBranch+#endif instance Arbitrary NodeSize where arbitrary = arbBounded