Apply all world side effects using list

src/Dodge/Room/Data.hs

@@ -2,16 +2,17 @@
 {-# LANGUAGE StrictData #-}
 module Dodge.Room.Data
   where
+import Dodge.LevelGen.Data
+import Geometry
 
-import Dodge.Data
 import Control.Lens
 
 data Room = Room
-    { _rmPolys  :: [Poly]
+    { _rmPolys  :: [ [Point2] ]
     , _rmLinks  :: [(Point2,Float)]
     , _rmPath :: [(Point2, Point2)]
     , _rmPS :: [PlacementSpot]
-    , _rmBound :: Poly
+    , _rmBound :: [Point2]
     }
 data RoomLink = RL {_rlPos :: Point2, _rlRot :: Float}
 

src/Dodge/Room/Placement.hs

@@ -1,6 +1,7 @@
 module Dodge.Room.Placement
   where
 import Dodge.Data
+import Dodge.LevelGen.Data
 import Picture
 import Dodge.Creature.Inanimate