19 lines
395 B
Haskell
19 lines
395 B
Haskell
module Preload
|
|
where
|
|
import Data.Preload
|
|
import Preload.Render
|
|
import Sound.Data
|
|
|
|
--import Control.Lens
|
|
--import GHC.Word (Word32)
|
|
import qualified SDL.Mixer as Mix
|
|
|
|
|
|
cleanUpPreload :: PreloadData -> IO ()
|
|
cleanUpPreload pd = do
|
|
cleanUpRenderPreload $ _renderData pd
|
|
cleanUpSoundPreload $ _soundData pd
|
|
|
|
cleanUpSoundPreload :: SoundData -> IO ()
|
|
cleanUpSoundPreload _ = Mix.closeAudio
|