Fix bug in detecting which room you are in

src/Dodge/Room/Data.hs

@@ -8,6 +8,7 @@ module Dodge.Room.Data
     , rmPS
     , rmBound
     , rmFloor
+    , rmName
     ) where
 import Dodge.LevelGen.Data
 --import Geometry
@@ -27,9 +28,10 @@ assigning no bounds will allow rooms to overlap.
 data Room = Room
     { _rmPolys  :: [ [Point2] ]
     , _rmLinks  :: [(Point2,Float)]
-    , _rmPath :: [(Point2, Point2)]
-    , _rmPS :: [Placement]
-    , _rmBound :: [ [Point2] ]
-    , _rmFloor :: [Tile]
+    , _rmPath   :: [(Point2, Point2)]
+    , _rmPS     :: [Placement]
+    , _rmBound  :: [ [Point2] ]
+    , _rmFloor  :: [Tile]
+    , _rmName   :: String
     }
 makeLenses ''Room

src/Dodge/Room/LongDoor.hs

@@ -48,6 +48,7 @@ twinSlowDoorRoom drID w h x = defaultRoom
             (over worldState (M.insert (DoorNumOpen drID) True))
         ]
     , _rmBound  = ps
+    , _rmName   = "twinSlowDoorRoom"
     }
   where
     ps =