Remove redundant placement generation

src/Dodge/Placement/Instance/Sensor.hs

@@ -14,10 +14,8 @@ 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
-        . PutUsingGenParams
-        $ \gw ->
-            ( gw
-            , PutMachine
+        $
+             PutMachine
                 (reverse $ square wdth)
                 ( defaultMachine
                     & mcColor .~ yellow
@@ -28,13 +26,11 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
                             ( DamSensor
                                 0
                                 dt
---                                (_sensorCoding (_cwgParams $ _cwGen (_cWorld gw)) M.! dt)
                                 (damageTypeThreshold dt)
                             )
                 )
                 defaultSensorWall
                 Nothing
-            )
 
 damageTypeThreshold :: SensorType -> Int
 damageTypeThreshold dt = case dt of