Move generating item combinations graph from load to menu log

src/Dodge/LevelGen.hs

@@ -5,8 +5,6 @@ import Data.Preload.Render
 import Control.Lens
 import Control.Monad.State
 import Data.Foldable
-import qualified Data.Text.IO as TIO
-import Dodge.Combine.Graph
 import Dodge.Data.GenWorld
 import Dodge.Floor
 import Dodge.Initialisation
@@ -19,18 +17,15 @@ import System.Random
 generateWorldFromSeed :: RenderData -> Int -> IO World
 generateWorldFromSeed rdata i = do
     createDirectoryIfMissing True "generated/log"
-    createDirectoryIfMissing True "generated/graph"
+--    createDirectoryIfMissing True "generated/graph"
     writeFile "generated/log/attemptedSeeds" ""
     writeFile "generated/log/treeCluster" ""
     writeFile "generated/log/aGeneratedRoomLayout" ""
-    generateGraphs
     (roomList, bounds) <- layoutLevelFromSeed 0 i
     postGenerationProcessing rdata
         $! generateLevelFromRoomList roomList $ initialWorld{_randGen = mkStdGen i}
         & cWorld . cwGen . cwgRoomClipping .~ bounds
         & cWorld . cwGen . cwgSeed .~ i
---        & gwWorld . cWorld . cwGen . cwgRoomClipping .~ bounds
---        & gwWorld . cWorld . cwGen . cwgSeed .~ i
 
 postGenerationProcessing :: RenderData -> GenWorld -> IO World
 postGenerationProcessing _ gw = do
@@ -38,11 +33,6 @@ postGenerationProcessing _ gw = do
     let w = w' & cWorld . cwTiles .~ (tilesFromRooms . IM.elems $ _genRooms gw)
     return $ foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)
 
-generateGraphs :: IO ()
-generateGraphs = do
-    createDirectoryIfMissing True "generated/graph"
-    TIO.writeFile "generaged/graph/itemCombinations.gv" combinationsDotGraph
-
 assignPushDoors :: World -> Door -> World
 assignPushDoors w dr = case dr ^?! drPushedBy of
     PushedBy i -> w & cWorld . lWorld . doors . ix i . drPushes ?~ _drID dr