Fix---at least partially---level generation bug

src/Dodge/Room/Data.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Room.Data
+  where
+
+import Dodge.Data
+import Control.Lens
+
+data Room = Room
+    { _rmPolys  :: [Poly]
+    , _rmLinks  :: [(Point2,Float)]
+    , _rmPath :: [(Point2, Point2)]
+    , _rmPS :: [PlacementSpot]
+    , _rmBound :: Poly
+    }
+data RoomLink = RL {_rlPos :: Point2, _rlRot :: Float}
+
+makeLenses ''Room
+makeLenses ''RoomLink