diff --git a/birch-beer.cabal b/birch-beer.cabal
--- a/birch-beer.cabal
+++ b/birch-beer.cabal
@@ -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
diff --git a/src/BirchBeer/MainDiagram.hs b/src/BirchBeer/MainDiagram.hs
--- a/src/BirchBeer/MainDiagram.hs
+++ b/src/BirchBeer/MainDiagram.hs
@@ -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