Implement basic config file
This commit is contained in:
+7
-17
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user