Cleanup

src/Dodge/Placement/Instance/Analyser.hs

@@ -49,12 +49,12 @@ analyser
     -> PlacementSpot
     -> PlacementSpot
     -> Placement
-analyser starts sucs fails afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
+analyser starts sucs _ afters upf pslight psmc = extTrigLitPos pslight $ \tp ->
     Just $ plSpot .~ psmc $ putTerminal' aquamarine tparams (termupdate tp)
   where
-    tparams = const $ defaultTermParams & tmFutureLines ++.~ 
+    tparams = defaultTermParams & tmFutureLines ++.~ 
         (map makeTermLine starts ++ [makeTermLine sucs] ++ map makeTermLine afters)
-    termupdate tp btid = 
+    termupdate tp _ = 
         (\mc -> upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))
         )