Make world booleans (triggers) non-functional

src/Dodge/Data.hs

@@ -176,7 +176,7 @@ data World = World
     , _magnets              :: IM.IntMap Magnet
     , _blocks               :: IM.IntMap Block
     , _coordinates          :: IM.IntMap Point2
-    , _triggers             :: IM.IntMap (World -> Bool)
+    , _triggers             :: IM.IntMap Bool
     , _wlZoning             :: Zoning IM.IntMap Wall
     , _floorItems           :: IM.IntMap FloorItem
     , _floorTiles           :: [(Point3,Point3)]
@@ -847,7 +847,7 @@ data Terminal = Terminal
     }
 data TerminalToggle = TerminalToggle
     { _ttTriggerID :: Int
-    , _ttDeathEffect :: (World -> Bool) -> (World -> Bool)
+    , _ttDeathEffect :: Bool -> Bool
     }
 data Machine = Machine
     { _mcID     :: Int
@@ -1213,7 +1213,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutBlock {_putBlock :: Block, _putWall :: Wall, _putPoly :: [Point2] }
     | PutCoord Point2
     | PutMod Modification
-    | PutTrigger (World -> Bool)
+    | PutTrigger Bool
     | PutLineBlock {_putWall :: Wall , _putWidth :: Float
         , _putStartPoint :: Point2, _putEndPoint :: Point2}
     | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }