module Preload
  where
import Data.Preload
import Preload.Render
import Sound.Data

--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 _ = Mix.closeAudio