Make world booleans (triggers) non-functional

src/Dodge/Room/Door.hs

@@ -11,8 +11,7 @@ import Color
 
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
---import Dodge.LevelGen.Data
-import Control.Lens
+--import Control.Lens
 
 door :: Room
 door = defaultRoom
@@ -42,4 +41,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 = w & _triggers w IM.! fromJust (_plMID pmnt)
+    cond pmnt w = _triggers w IM.! fromJust (_plMID pmnt)