Cleanup

2022-07-28 12:35:19 +01:00
parent 160560af5f
commit 8aeabf3f6c
16 changed files with 123 additions and 365 deletions
@@ -27,9 +27,9 @@ analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
    themachine =
        defaultMachine & mcColor .~ aquamarine
            --        & mcUpdate .~ mcProximitySensorUpdate
-            & mcDraw .~ MachineDrawTerminal
+            & mcType .~ McTerminal
            & mcHP .~ 100
-            & mcSensor .~ defaultProximitySensor{_proxRequirement = proxreq}
+            & mcType . _McSensor .~ defaultProximitySensor{_proxRequirement = proxreq}

 --this can probably be deleted
 --mcProximitySensorUpdate :: Machine -> World -> World