Fix sound system destruction.

1 files changed, 3 insertions, 1 deletions

diff --git a/Spear/Sound/Sound.hs b/Spear/Sound/Sound.hs
index 832ffb8..887cf97 100644
--- a/Spear/Sound/Sound.hs
+++ b/Spear/Sound/Sound.hs
@@ -41,8 +41,10 @@ initSoundSystem = return newSoundState
 destroySoundSystem :: Game SoundState ()
 destroySoundSystem = do
   state <- get
-  mapM_ release' (toList $ buffers state)
+  -- The order here matters; sources before buffers since buffers are attached
+  -- to sources.
   mapM_ release' (toList $ sources state)
+  mapM_ release' (toList $ buffers state)
   put newSoundState
 
 -- | Load an audio file.