module Preload
    ( module Preload
    , module Preload.Data
    , module Preload.Update
    )
  where
import Preload.Data
import Preload.Update
import Picture.Preload
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 sd = Mix.closeAudio