Add sound, cleanup

2025-12-26 16:01:07 +00:00
parent 3f7eeb871c
commit 157d63a714
3 changed files with 31 additions and 32 deletions
@@ -1,4 +1,5 @@
 {-# LANGUAGE LambdaCase #-}
+
 module Dodge.Placement.Instance.Sensor (
    lightSensor,
    damageSensor,
@@ -13,15 +14,14 @@ import Geometry

 damageSensor :: SensorType -> Float -> Maybe Int -> PlacementSpot -> Placement
 damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
-    \lsid -> psPtJpl ps
-        $
-             PutMachine
+    \lsid ->
+        psPtJpl ps $
+            PutMachine
                (reverse $ square wdth)
                ( defaultMachine
                    & mcMounts . at OTTrigger .~ mtrid
                    & mcMounts . at OTLightSource ?~ lsid
-                    & mcType
-                        .~ McDamSensor ( DamSensor 0 dt)
+                    & mcType .~ McDamSensor (DamSensor 0 dt)
                )
                Nothing