module Preload
    ( cleanUpPreload
    )
  where
import Data.Preload
import Preload.Render
import Sound.Data

import qualified SDL.Mixer as Mix

cleanUpPreload :: PreloadData -> IO ()
cleanUpPreload pd = do
    cleanUpRenderPreload $ _renderData pd
    cleanUpSoundPreload $ _soundData pd

cleanUpSoundPreload :: SoundData -> IO ()
cleanUpSoundPreload _ = Mix.closeAudio