Move GenWorld fields into World

src/Dodge/Default/Room.hs

@@ -1,7 +1,8 @@
 module Dodge.Default.Room where
 import Data.Tile
 import Geometry.Data
-import Dodge.LevelGen.Data
+--import Dodge.LevelGen.Data
+import Dodge.Data
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Set as S
 

src/Dodge/Default/World.hs

@@ -99,6 +99,8 @@ defaultWorld = World
     , _doubleMouseHammer = HammerUp
     , _backspaceTimer = 0
     , _genParams = GenParams M.empty
+    , _genPlacements = IM.empty
+    , _genRooms = IM.empty
     }
 youLight :: TempLightSource
 youLight = TLS