Improve detector equipment, various cleanup

src/Dodge/SoundLogic.hs

@@ -54,7 +54,7 @@ soundWithStatusVolume
     -> Maybe Int    -- ^ Frames to play sound for, Nothing for until finished
     -> World 
     -> World
-soundWithStatusVolume vol status so pos sType mtime w = over toPlaySounds (M.insertWith f so sound) w
+soundWithStatusVolume vol status so pos sType mtime w = w & toPlaySounds %~ M.insertWith f so sound
   where 
     sound = Sound 
         { _soundChunkID     = sType
@@ -90,7 +90,7 @@ soundStart
     -> World 
     -> World
 soundStart = soundWithStatus ToStart
-soundContinue 
+soundContinue
     :: SoundOrigin  -- ^ \"Creator\" of sound
     -> Point2       -- ^ Position of sound
     -> SoundID      -- ^ ID of sound to be played