Hlint, cleanup

src/Dodge/Placement/Instance/Button.hs

@@ -119,7 +119,7 @@ putLitButOnPosExtTrig' col thePS cnt =
                             <&> plSpot
                                 .~ _plSpot plmnt
   where
-    buteff i j = SetTriggerAndSetLSCol True i (V3 0 0.5 0) j
+    buteff i = SetTriggerAndSetLSCol True i (V3 0 0.5 0)
     shp = fmap (fmap $ colorSH col) aShape
     trigid tp = fromJust $ _plMID tp
     ls = lsColPosRad (V3 0.5 0 0) (V3 0 0 50) 50

src/Dodge/Placement/Instance/LightSource.hs

@@ -18,6 +18,7 @@ module Dodge.Placement.Instance.LightSource (
     mntLightLnkCond',
     spanLS,
     mntLightLnkShape,
+    spanColLightI,
 ) where
 
 import Color