Try to move sound into world, slightly broken now

src/Preload.hs

@@ -9,10 +9,10 @@ import Sound.Data
 import qualified SDL.Mixer as Mix
 
 
-cleanUpPreload :: PreloadData a -> IO ()
+cleanUpPreload :: PreloadData -> IO ()
 cleanUpPreload pd = do
     cleanUpRenderPreload $ _renderData pd
     cleanUpSoundPreload $ _soundData pd
 
-cleanUpSoundPreload :: SoundData a -> IO ()
+cleanUpSoundPreload :: SoundData -> IO ()
 cleanUpSoundPreload _ = Mix.closeAudio