Try to move sound into world, slightly broken now

2021-09-08 19:12:54 +01:00
parent 04e5b9b39f
commit c3d567353c
9 changed files with 33 additions and 56 deletions
@@ -49,9 +49,9 @@ In the update:
    3. apply 'Just' sound position effects, set value to 'Nothing'
    4. remove sounds that have stopped playing from the map.
 -}
-playSoundAndUpdate :: Ord a => SoundData a -> M.Map a Sound -> IO (M.Map a Sound)
-playSoundAndUpdate sData newSounds 
-    = updateSounds (_loadedChunks sData) (M.unionWith mergeSound (_playingSounds sData) newSounds)
+playSoundAndUpdate :: Ord a => SoundData -> 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)

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