Implement basic config file

This commit is contained in:
jgk
2021-03-22 22:40:11 +01:00
parent 553c6978d6
commit 54b28db249
5 changed files with 23 additions and 29 deletions
+7 -17
View File
@@ -1,28 +1,18 @@
{-# LANGUAGE TemplateHaskell #-}
module Preload
( module Preload
, module Preload.Data
, module Preload.Update
)
where
import Preload.Data
import Preload.Update
import Picture.Preload
import Sound.Preload
import Control.Lens
import GHC.Word (Word32)
data PreloadData a = PreloadData
{ _renderData :: RenderData
, _soundData :: SoundData a
, _currentTime :: Word32
, _renderTime :: Word32
, _renderLighting :: Word32
, _renderPicture :: Word32
, _simTime :: Word32
, _mixerTime :: Word32
, _idleTime :: Word32
, _gcTime :: Word32
, _pokeTime :: Word32
}
makeLenses ''PreloadData
doPreload :: IO (PreloadData a)
doPreload = do
sData <- preloadSound