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)

src/Dodge/Room/Warning.hs

@@ -44,7 +44,7 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
     termMessages trpl = lineOutputTerminal (makeColorTermLine red "WARNING":makeTermPara str)
         & tmScrollCommands .:~ toggleCommand
         & tmToggles .~ M.fromList 
-            [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (const (const True)))]
+            [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (const True))]
 
 moveToSideFirstOutLink :: RoomPos -> Room -> Maybe (Point2,Float)
 moveToSideFirstOutLink rp rm = case rp ^? rpLinkStatus . rplsChildNum of