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