Commit before tweaking placementn/room generation

src/Dodge/Data/GenWorld.hs

@@ -23,6 +23,7 @@ import System.Random
 data GenWorld = GenWorld
     { _gwWorld :: World
     , _genRooms :: IM.IntMap Room
+    , _genPmnt :: IM.IntMap [Placement]
     }
 
 ---- ROOM DATATYPES
@@ -80,7 +81,7 @@ data Placement = Placement
     { _plSpot :: PlacementSpot
     , _plType :: PSType
     , _plMID :: Maybe Int
-    , _plIDCont :: World -> Placement -> Maybe Placement
+    , _plIDCont :: GenWorld -> Placement -> Maybe Placement
     }
 
 {- The '_rmPolys' lists which polygons should be cut out to form the indestructible walls of the room.
@@ -124,7 +125,7 @@ data Room = Room
     }
 
 data InPlacement = InPlacement
-    { _ipPlacement :: World -> [Placement] -> Placement
+    { _ipPlacement :: GenWorld -> [Placement] -> Placement
     , _ipPlacementID :: Int
     }