17 lines
432 B
Haskell
17 lines
432 B
Haskell
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"
|