Cleanup

src/Dodge/LevelGen/Data.hs

@@ -53,19 +53,18 @@ data Placement = Placement
   | RandomPlacement {_unRandomPlacement :: State StdGen Placement}
 
 
-{- 
-The '_rmPolys' list states which polygons should be cut out to form the indestructible walls of the room.
+{- The '_rmPolys' lists which polygons should be cut out to form the indestructible walls of the room.
 Link pairs contain a position and rotation to attach to another room;
 0 is for links going to another room to the north, pi/2 for links going to a room to the west, etc.
 TODO : Explain path, does it need both directions?
 Placement spots allow things to be put in the room during level generation.
 Room bounds between a new room and previously placed rooms are checked during level generation,
-assigning no bounds will allow rooms to overlap.
- -}
+assigning no bounds will allow rooms to overlap.  -}
 data Room = Room
     { _rmPolys      :: [ [Point2] ]
-    , _rmOutLinks   :: [RoomLink] 
-    , _rmInLinks    :: [RoomLink]
+    , _rmLinks      :: [RoomLink]
+    --, _rmOutLinks      :: [RoomLink]
+    --, _rmInLinks      :: [RoomLink]
         -- update the room when assigning the next link to an adjacent room with the head of of this list, return the tail
     , _rmLinkEff    :: [(Point2,Float) -> Room -> Room]
     , _rmPos        :: [RoomPos]