Cleanup

src/Preload.hs

@@ -6,15 +6,18 @@ module Preload
   where
 import Preload.Data
 import Preload.Update
-
 import Picture.Preload
 import Sound.Data
-import Control.Lens
 
+import Control.Lens
 import GHC.Word (Word32)
+import qualified SDL.Mixer as Mix
 
 
 cleanUpPreload :: PreloadData a -> IO ()
 cleanUpPreload pd = do
     cleanUpRenderPreload $ _renderData pd
     cleanUpSoundPreload $ _soundData pd
+
+cleanUpSoundPreload :: SoundData a -> IO ()
+cleanUpSoundPreload sd = Mix.closeAudio

src/Sound/Data.hs

@@ -32,5 +32,3 @@ data Sound = Sound
 makeLenses ''SoundData
 makeLenses ''Sound
 
-cleanUpSoundPreload :: SoundData a -> IO ()
-cleanUpSoundPreload sd = Mix.closeAudio