Enable sounds in menus

appDodge/Main.hs

@@ -99,6 +99,7 @@ firstWorldLoad theConfig = do
                 , _uvDebugFloat1 = 10
                 , _uvDebugFloat2 = 0
                 , _uvDebugMessageOffset = 0
+                , _uvSoundQueue = mempty
                 }
     return $ u & uvScreenLayers .~ [splashMenu u]
 
@@ -120,6 +121,7 @@ playSoundUnlessRewinding u = case w ^. timeFlow of
 doSideEffects :: Universe -> IO Universe
 doSideEffects u = do
     newPlayingSounds <- playSoundUnlessRewinding u
+    playSoundQueue (_loadedChunks . _soundData $ _preloadData u) (fmap _getSoundID $ u ^. uvSoundQueue)
     u' <- _uvIOEffects u u
     endTicks <- SDL.ticks
     return $
@@ -129,6 +131,7 @@ doSideEffects u = do
             & uvWorld . playingSounds .~ newPlayingSounds
             & uvWorld . toPlaySounds .~ M.empty
             & uvIOEffects .~ return
+            & uvSoundQueue .~ mempty
 
 doPreload :: IO PreloadData
 doPreload = do