Cleanup

src/Dodge/Button/Event.hs

@@ -1,5 +1,6 @@
 module Dodge.Button.Event where
 
+import Sound.Data
 import Control.Lens
 import Dodge.Data.World
 import Dodge.SoundLogic
@@ -28,7 +29,7 @@ flipSwitch oneff offeff bt
   where
     turnon = (btState .~ BtOn) . (btText .~ "SWITCH\\")
     turnoff = (btState .~ BtOff) . (btText .~ "SWITCH/")
-    dosound = soundFromGeneral (LeverSound 0) (const $ _btPos bt) click1S Nothing
+    dosound = soundWithStatus ToStart (LeverSound 0) (_btPos bt) click1S Nothing
 
 --    switchEffect b = case _btState b of
 --        BtOff -> effOn  . (buttons . ix (_btID b) %~ turnOn )