Refactor doors

src/Dodge/Room/Door.hs

@@ -10,8 +10,6 @@ import Dodge.Placement.Instance
 import Color
 
 import Data.Maybe
-import qualified IntMapHelp as IM
---import Control.Lens
 
 door :: Room
 door = defaultRoom
@@ -41,4 +39,4 @@ triggerDoorRoom inplid = defaultRoom
   where 
     f (pmnt:_) = putDoubleDoor DoorObstacle (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
     f _ = error "tried to put a door using an empty placement list"
-    cond pmnt w = _triggers w IM.! fromJust (_plMID pmnt)
+    cond pmnt = WdTrig $ fromJust (_plMID pmnt)