18 lines
372 B
Haskell
18 lines
372 B
Haskell
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
|