Move towards resolving picture rendering bug

The bug concerns a mutable vector storing the amount of data that has
been poked.

src/Dodge/Combine/Graph.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE LambdaCase #-}
 
-module Dodge.Combine.Graph ( combinationsDotGraph) where
+module Dodge.Combine.Graph (combinationsDotGraph) where
 
 import Dodge.Data.CombAmount
 import Data.Bifunctor
@@ -91,7 +91,6 @@ belowNumX bt = case maxShowX bt of
 --toCombNodeLabel (CombNode Right{}) = ""
 
 combinationsDotGraph :: Text
---combinationsDotGraph = toStrict . printDotGraph . graphToDot nonClusteredParams $ combinationsGraph
 combinationsDotGraph =
     toStrict . printDotGraph . graphToDot myParams $
         combinationsGraph