module Preload (
    cleanUpPreload,
) where

import qualified Data.IntMap.Strict as IM
import Data.Preload
import Preload.Render
import qualified SDL.Mixer as Mix

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

cleanUpSoundPreload :: IM.IntMap Mix.Chunk -> IO ()
cleanUpSoundPreload _ = Mix.closeAudio >> putStrLn "Audio closed"