Auto generate dot file with base item combinations

src/Dodge/LevelGen.hs

@@ -10,6 +10,7 @@ import Dodge.Initialisation
 --import Dodge.LevelGen.Data
 import Dodge.Tree
 import Geometry.ConvexPoly
+import Dodge.Combine.Graph
 --import Dodge.LevelGen.LevelStructure
 
 import Data.Foldable
@@ -18,6 +19,7 @@ import System.Random
 import Control.Lens
 import Control.Monad.State
 import qualified Data.IntMap.Strict as IM
+import qualified Data.Text.IO as TIO
 
 generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
@@ -25,6 +27,7 @@ generateWorldFromSeed i = do
     writeFile "log/attemptedSeeds" ""
     writeFile "log/treeCluster" ""
     writeFile "log/aGeneratedRoomLayout" ""
+    TIO.writeFile "log/itemCombinations.gv" combinationsDotGraph
     (roomList,bounds) <- layoutLevelFromSeed 0 i
     return $ saveLevelStartSlot 
         $ postGenerationProcessing