Add sound on spawn, allow for filtering of to play sounds

appDodge/Main.hs

@@ -1,5 +1,6 @@
 module Main (main) where
 
+import Dodge.SoundSelection
 import Control.Lens
 import Control.Monad
 import Control.Parallel
@@ -108,7 +109,7 @@ updateRenderSplit win u = do
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
 playSoundUnlessRewinding u = case w ^. timeFlow of
-    NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
+    NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (newSoundsToPlay u)
     _ -> stopAllSounds >> return M.empty
   where
     w = _uvWorld u