Move universe IO effects outside of world

src/Dodge/LevelGen.hs

@@ -3,15 +3,11 @@
 module Dodge.LevelGen where
 import Dodge.Data
 import Dodge.Floor
-import Dodge.Save
 import Dodge.Layout
 import Dodge.Initialisation
---import Dodge.RandomHelp
---import Dodge.LevelGen.Data
 import Dodge.Tree
 import Geometry.ConvexPoly
 import Dodge.Combine.Graph
---import Dodge.LevelGen.LevelStructure
 
 import Data.Foldable
 import System.Directory
@@ -30,7 +26,7 @@ generateWorldFromSeed i = do
     writeFile "log/aGeneratedRoomLayout" ""
     generateGraphs
     (roomList,bounds) <- layoutLevelFromSeed 0 i
-    return $ saveLevelStartSlot 
+    return -- $ saveLevelStartSlot 
         $ postGenerationProcessing
         $ generateLevelFromRoomList roomList initialWorld{_randGen=mkStdGen i}
         & roomClipping .~ bounds