Cleanup, fix damage code terminal bug

src/Dodge/Placement/Instance/Analyser.hs

@@ -1,6 +1,4 @@
-module Dodge.Placement.Instance.Analyser (
-    analyser,
-) where
+module Dodge.Placement.Instance.Analyser (analyser) where
 
 import Color
 import Dodge.Data.GenWorld
@@ -9,11 +7,7 @@ import Dodge.Placement.Instance
 import Dodge.Terminal
 import LensHelp
 
-analyser ::
-    ProximityRequirement ->
-    PlacementSpot ->
-    PlacementSpot ->
-    Placement
+analyser :: ProximityRequirement -> PlacementSpot -> PlacementSpot -> Placement
 analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $
         plSpot .~ psmc $

src/Dodge/Placement/Instance/Sensor.hs

@@ -12,12 +12,7 @@ import Dodge.LevelGen.PlacementHelper
 import Dodge.LightSource
 import Geometry
 
-damageSensor ::
-    SensorType ->
-    Float ->
-    Maybe Int ->
-    PlacementSpot ->
-    Placement
+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