Allow for custom reloading sounds

2022-06-21 22:21:18 +01:00
parent 53c8be0679
commit 029b6daf8e
25 changed files with 339 additions and 219 deletions
@@ -197,4 +197,5 @@ soundMultiFrom (so:sos) pos sType mtime w
    a = soundAngle pos w
 {- | Sets '_soundTime' to 0.  -}
 stopSoundFrom :: SoundOrigin -> World -> World
-stopSoundFrom so = over (playingSounds . ix so . soundTime) (fmap $ min 0)
+stopSoundFrom so = playingSounds . ix so . soundTime ?~ 0
+--stopSoundFrom so = over (playingSounds . ix so . soundTime) (fmap $ min 0)