Cleanup

2022-06-06 16:37:52 +01:00
parent ce323630ee
commit 4e181b8273
8 changed files with 23 additions and 30 deletions
@@ -54,9 +54,7 @@ analyser starts sucs _ afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
  where
    tparams = defaultTermParams & tmFutureLines ++.~ 
        (map makeTermLine starts ++ [makeTermLine sucs] ++ map makeTermLine afters)
-    termupdate tp _ = 
-        (\mc -> upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))
-        )
+    termupdate tp _ mc = upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))

 analyserTest :: (World -> Bool) -> Machine -> World -> World
 analyserTest t mc w = case