digraph 0.3.1 → 0.3.2
raw patch · 4 files changed
+19/−8 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.DiGraph: petersenGraph :: DiGraph Int
Files
- CHANGELOG.md +6/−0
- digraph.cabal +1/−1
- src/Data/DiGraph.hs +8/−3
- test/Data/DiGraph/Test.hs +4/−4
CHANGELOG.md view
@@ -1,5 +1,11 @@ # Revision history for digraph +## 0.3.2 -- 2023-04-01++* Fix spelling of Petersen graph. The old function name `petersonGraph` is+ marked as deprecated and will be removed in the next major version. The new+ function name is `petersenGraph`.+ ## 0.3.1 -- 2023-03-31 * Add some degree-diameter graphs to the list of known graphs. These graphs
digraph.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: digraph-version: 0.3.1+version: 0.3.2 synopsis: Directed Graphs description: Directed graphs implementation that is based on unordered-containers homepage: https://github.com/kadena-io/digraph
src/Data/DiGraph.hs view
@@ -80,6 +80,7 @@ , diCycle , line , diLine+, petersenGraph , petersonGraph , twentyChainGraph , hoffmanSingleton@@ -540,15 +541,15 @@ line :: Natural -> DiGraph Int line = symmetric . diLine --- | The Peterson graph.+-- | The Petersen graph. -- -- * order: 10 -- * size: 30 -- * degree: 3 -- * diameter: 2 ---petersonGraph :: DiGraph Int-petersonGraph = DiGraph+petersenGraph :: DiGraph Int+petersenGraph = DiGraph [ (0, [2,3,5]) , (1, [3,4,6]) , (2, [4,0,7])@@ -560,6 +561,10 @@ , (8, [3,7,9]) , (9, [4,8,5]) ]++petersonGraph :: DiGraph Int+petersonGraph = petersenGraph+{-# DEPRECATED petersonGraph "Use petersenGraph instead" #-} -- | The "twenty chain" graph. --
test/Data/DiGraph/Test.hs view
@@ -62,8 +62,8 @@ where g = singleton -properties_petersonGraph :: [(String, Property)]-properties_petersonGraph = prefixProperties "petersonGraph: "+properties_petersenGraph :: [(String, Property)]+properties_petersenGraph = prefixProperties "petersenGraph: " $ ("order == 10", order g === 10) : ("size == 15", symSize g === 15) : ("outDegree == 3", maxOutDegree g === 3)@@ -71,7 +71,7 @@ : ("diameter == 2", diameter g === Just 2) : properties_undirected g where- g = petersonGraph+ g = petersenGraph properties_twentyChainGraph :: [(String, Property)] properties_twentyChainGraph = prefixProperties "twentyChainGraph: "@@ -179,7 +179,7 @@ [ properties_emptyGraph 0 , properties_emptyGraph 2 , properties_singletonGraph- , properties_petersonGraph+ , properties_petersenGraph , properties_twentyChainGraph , properties_hoffmanSingletonGraph , properties_pentagon