Fix bugs in zoning

2022-07-30 14:21:13 +01:00
parent c8ad3e1294
commit 82db86f55f
16 changed files with 204 additions and 157 deletions
@@ -70,7 +70,7 @@ mcSensorTriggerUpdate :: Sensor -> Machine -> World -> World
 mcSensorTriggerUpdate se mc = fromMaybe id $ do
    trid <- mc ^? mcMounts . ix ObTrigger
    bval <- mcTriggerVal se
-    return $ cWorld . triggers . ix trid .~ bval
+    return $ cWorld . triggers . ix trid ||~ bval

 mcTriggerVal :: Sensor -> Maybe Bool
 mcTriggerVal se = case se of