Refactor machines

2022-07-24 20:55:44 +01:00
parent d6a94ec4bc
commit 24531b75a1
10 changed files with 110 additions and 59 deletions
@@ -53,7 +53,7 @@ analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
 --        = triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc)
    themachine = defaultMachine & mcColor .~ aquamarine
 --        & mcUpdate .~ mcProximitySensorUpdate
-        & mcDraw .~ terminalSPic
+        & mcDraw .~ MachineDrawTerminal
        & mcHP .~ 100
        & mcSensor .~ defaultProximitySensor {_proxRequirement = proxreq}