Stop all sound when stopping time

appDodge/Main.hs

@@ -105,9 +105,9 @@ updateRenderSplit u = do
     return $! updateUniverse u
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
-playSoundUnlessRewinding u = case w ^. timeFlow of
+playSoundUnlessRewinding u = case w ^. cWorld . timeFlow of
     NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
-    _ -> return M.empty
+    _ -> stopAllSounds >> return M.empty
   where
     w = _uvWorld u