Refactor doors

src/Dodge/Room/Procedural.hs

@@ -34,7 +34,6 @@ import Data.Tile
 import LensHelp
 
 import qualified Data.Set as S
-import qualified IntMapHelp as IM
 --import Control.Lens
 -- This will need a cleanup, but it might change a bit first
 {- A simple rectangular room with a light in the center.
@@ -272,5 +271,5 @@ centerVaultRoom w h d = return $ defaultRoom
         ]
     thewall = switchWallCol col
     thedoor btid = defaultDoor
-        & drTrigger .~ (\w' -> _btState (_buttons w' IM.! btid) == BtOn)
+        & drTrigger .~ WdBlBtOn btid
         & drSpeed .~ 2