Cleanup (remove) _soundData, _musicData

2025-06-03 09:08:13 +01:00
parent e952f2abea
commit 8da3e75ac5
6 changed files with 11 additions and 27 deletions
@@ -52,9 +52,9 @@ In the update:
    4. remove sounds that have stopped playing from the map.
 -}
 playSoundAndUpdate
-    :: Ord a => SoundData -> M.Map a Sound -> M.Map a Sound -> IO (M.Map a Sound)
+    :: Ord a => IM.IntMap Mix.Chunk -> M.Map a Sound -> M.Map a Sound -> IO (M.Map a Sound)
 playSoundAndUpdate sData oldSounds newSounds
-    = updateSounds (_loadedChunks sData) (M.unionWith mergeSound oldSounds newSounds)
+    = updateSounds sData (M.unionWith mergeSound oldSounds newSounds)

 mergeSound :: Sound -> Sound -> Sound
 mergeSound oldS newS