birch-beer 0.1.1.0 → 0.1.1.1

raw patch · 2 files changed

+5/−4 lines, 2 files

Files

• birch-beer.cabal +1/−1
• src/BirchBeer/Plot.hs +4/−3

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: birch-beer-version: 0.1.1.0+version: 0.1.1.1 license: GPL-3 license-file: LICENSE copyright: 2019 Gregory W. Schwartz

@@ -21,6 +21,7 @@ -- Remote import Control.Monad (forM, mapM, join) import Control.Monad.State (State (..))+import Data.Bool (bool) import Data.Colour (AffineSpace (..), withOpacity) import Data.Colour.Names (black) import Data.Colour.Palette.BrewerSet (brewerSet, ColorCat(..), Kolor)@@ -438,7 +439,7 @@     itemDia = drawGraphLabel cm items     background = circle 1 # fc white # lw none # scaleUToY scaleVal     maxLeafNodeSize = unDrawMaxLeafNodeSize . _drawMaxLeafNodeSize $ opts-    textDia True  = text (show n) # fc black+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)     textDia False = mempty     dnn = unDrawNodeNumber . _drawNodeNumber $ opts     scaleVal = if unDrawNoScaleNodesFlag . _drawNoScaleNodesFlag $ opts@@ -473,7 +474,7 @@                 else getScaledLeafSize maxClusterSize' maxLeafNodeSize items     maxLeafNodeSize = unDrawMaxLeafNodeSize . _drawMaxLeafNodeSize $ opts     maxClusterSize' = maxClusterSize . unClusterGraph $ gr-    textDia True  = text (show n) # fc black+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)     textDia False = mempty     dnn = unDrawNodeNumber . _drawNodeNumber $ opts drawGraphNode opts cm ncm mcm _ gr (n, Nothing) pos =@@ -491,7 +492,7 @@             # lw 0.4             # scaleUToY (unDrawMaxNodeSize . _drawMaxNodeSize $ opts)     dnn = unDrawNodeNumber . _drawNodeNumber $ opts-    textDia True  = text (show n) # fc black+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)     textDia False = mempty     rootDiffer 0 = lw none     rootDiffer n = lw none