Continue placement refactor

src/Dodge/Room/LongDoor.hs

@@ -24,7 +24,7 @@ import Control.Lens
 import Control.Monad.State
 import Data.Tree
 import qualified Data.Map as M
-import qualified Data.IntMap as IM
+--import qualified Data.IntMap as IM
 
 twinSlowDoorRoom 
     :: Int      -- ^ Door id
@@ -56,7 +56,7 @@ twinSlowDoorRoom drid w h x = defaultRoom
     , _rmName   = "twinSlowDoorRoom"
     }
   where
-    drmoving w' = True -- DoorHalfway == _drStatus (_doors w' IM.! drid)
+    drmoving _ = True -- DoorHalfway == _drStatus (_doors w' IM.! drid)
     lampHeight = 41
     ps = 
         [rectNSWE h    0 (-w) w