Fix bug in detecting which room you are in

src/Dodge/Render/Picture.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.Render.Picture
   where
 import Dodge.Data
@@ -7,7 +8,9 @@ import Dodge.Base.Zone
 import Dodge.Picture
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
+--import Dodge.Render.List
 import Dodge.Render.MenuScreen
+--import Dodge.GameRoom
 --import Dodge.Debug
 import Geometry
 --import Geometry.Zone
@@ -60,6 +63,7 @@ customMouseCursor w =
 
 testPic :: World -> Picture
 testPic _ = blank
+    --setLayer 1 $ renderListAt 50 0 w $ map ((,white) . _grName) $ _gameRooms w
     
 --    [ setDepth (-1) . translate 0 0.8
 --        . scale 0.001 0.001 . text . show $ _crMvDir $ you w