Module reorganisation

src/Data/Preload.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Data.Preload
+    where
+import Data.Preload.Render
+import Sound.Data
+import Music
+
+import Control.Lens
+import GHC.Word (Word32)
+
+data PreloadData a = PreloadData
+    { _renderData   :: RenderData
+    , _soundData    :: SoundData a
+    , _musicData    :: MusicData
+    , _frameTimer   :: Word32
+    }
+
+makeLenses ''PreloadData

src/Data/Preload/Render.hs

@@ -0,0 +1,28 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -Wno-unused-top-binds #-}
+module Data.Preload.Render
+    where
+import Shader.Data
+
+import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
+import Control.Lens
+data RenderData = RenderData
+    { _lightingFloorShader      :: FullShader
+    , _lightingOccludeShader    :: FullShader
+    , _lightingWallShader       :: FullShader
+    , _wallBlankShader          :: FullShader
+    , _wallTextureShader        :: FullShader
+    , _backgroundShader         :: FullShader
+    --, _textureShader            :: FullShader (Point3,Point2)
+    , _fullscreenShader         :: FullShader
+    , _boxBlurShader            :: FullShader
+    , _grayscaleShader          :: FullShader
+    , _pictureShaders           :: [FullShader]
+    , _spareFBO                 :: FramebufferObject
+    , _fboTexture               :: TextureObject
+    , _fboRenderbufferObject    :: RenderbufferObject
+    , _fbo2                     :: (FramebufferObject, TextureObject, RenderbufferObject)
+    , _fbo3                     :: (FramebufferObject, TextureObject, RenderbufferObject)
+    }
+makeLenses ''RenderData
+