Cleanup

src/Dodge/Placement/Instance/Button.hs

@@ -4,11 +4,9 @@ import Dodge.LightSource
 import Color
 import Geometry
 import Dodge.LevelGen.Data
---import Dodge.Default
 import Dodge.LevelGen.Switch
 import Dodge.Placement.Instance.LightSource
 import Dodge.PlacementSpot
-import ShapePicture
 
 import Data.Maybe
 import Control.Lens
@@ -30,7 +28,6 @@ triggerSwitchSPicLight sdraw ps = psPtCont ps (PutTrigger False)
   where
     thels = lsColPosRad (V3 0.5 0 0) (V3 0 0 78) 75
     trigid tp = fromJust $ _plMID tp
-    eff lsid tid b c = (triggers . ix tid .~ b)
     oneff  lsid tid = WorldEffects [SetLSCol (V3 0 0.5 0) lsid, SetTrigger True tid]
     offeff lsid tid = WorldEffects [SetLSCol (V3 0.5 0 0) lsid, SetTrigger False tid]