Cleanup terminal display

2022-06-03 09:20:03 +01:00
parent 28a002eb08
commit 5ff2fb4910
24 changed files with 198 additions and 180 deletions
@@ -31,7 +31,7 @@ damageSensor dt wdth upf ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1)
        }

 lightSensor :: Float -> (Machine -> World -> World) -> PlacementSpot -> Placement
-lightSensor = damageSensor Lasering
+lightSensor = damageSensor LASERING

 sensorUpdate :: DamageType -> Machine -> World -> World
 sensorUpdate damF mc w = w & machines . ix mcid %~ upmc