birch-beer 0.2.4.1 → 0.2.4.2

raw patch · 2 files changed

+9/−9 lines, 2 files

Files

• birch-beer.cabal +1/−1
• src/BirchBeer/MainDiagram.hs +8/−8

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

@@ -143,7 +143,7 @@         labelColorMap = fmap                           (maybe id saturateLabelColorMap drawScaleSaturation')                           labelColorMapRaw-        -- | Get the mark color map.+        -- Get the mark color map.         markColorMap = case drawMark' of                         MarkNone -> Nothing                         _ -> Just $ getMarkColorMap drawMark' gr@@ -152,10 +152,10 @@             lcm <- labelColorMapRaw             lm  <- labelMap'             return $ labelToItemColorMap lcm lm-        -- | Get the discrete color list.+        -- Get the discrete color list.         discreteColors = drawDiscretize'                      >>= getDiscreteColorMap drawLeaf' drawColors' labelColorMap-        -- | This function will decide whether to update a map or not based on+        -- This function will decide whether to update a map or not based on         -- user input.         discretizeColorMapHelper :: (Eq a, Ord a)                                  => Map.Map a (D.Colour Double)@@ -163,7 +163,7 @@         discretizeColorMapHelper cm =           maybe cm (flip discretizeColorMap cm) discreteColors -    -- | Get the item color map.+    -- Get the item color map.     itemColorMapRaw <-         case drawLeaf' of             DrawItem (DrawContinuous x) ->@@ -179,7 +179,7 @@                 fmap (fmap (getItemColorMapSumContinuous drawColors')) mat             _                           -> return defaultGetItemColorMap -    -- | Get the node color map.+    -- Get the node color map.     let itemColorMap = fmap ( ItemColorMap                             . discretizeColorMapHelper                             . unItemColorMap@@ -198,7 +198,7 @@                         (getNodeColorMapFromDiversity drawColors' order' gr)                         itemColorMapRaw                 _ -> fmap (getNodeColorMapFromItems gr) $ itemColorMapRaw-    -- | Get the graph at each leaf (if applicable).+    -- Get the graph at each leaf (if applicable).         getAllLeafNodesSet = Set.fromList                            . F.toList                            . fmap fst@@ -222,7 +222,7 @@                 )                 simMat -    -- | Get the legend of the diagram.+    -- Get the legend of the diagram.     legend <- case drawLeaf' of                 (DrawItem (DrawContinuous x)) ->                     fmap@@ -258,7 +258,7 @@                               (unDrawLegendAllLabels drawLegendAllLabels')                         $ lcm -    -- | Get the entire diagram.+    -- Get the entire diagram.     plot <- plotGraph                 legend                 drawConfig