Make world booleans (triggers) non-functional

2022-07-19 21:21:32 +01:00
parent 6b398b4bb6
commit 0edc1cfe11
6 changed files with 21 additions and 22 deletions
@@ -103,7 +103,7 @@ mcSensorTriggerUpdate :: Machine -> World -> World
 mcSensorTriggerUpdate mc = fromMaybe id $ do
    trid <- mc ^? mcMounts . ix ObTrigger
    bval <- mcTriggerVal mc
-    return $ triggers . ix trid .~ const bval
+    return $ triggers . ix trid .~ bval

 mcTriggerVal :: Machine -> Maybe Bool
 mcTriggerVal mc = case mc ^. mcSensor of