24 lines
503 B
Haskell
24 lines
503 B
Haskell
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
|