Refactor level/room generation modules

src/Shader/Data.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Shader.Data
+    where
+import Graphics.Rendering.OpenGL
+import Foreign
+import Control.Lens
+
+data VAO = VAO
+    { _vao :: VertexArrayObject
+    , _vaoBufferTargets :: [(BufferObject,Ptr Float,Int)]
+    }
+data FullShader a = FullShader
+    { _shaderProgram :: Program
+    , _shaderUniforms :: [UniformLocation]
+    , _shaderVAO :: VAO
+    , _shaderPokeStrategy :: a -> [[[Float]]]-- -> F.FoldM IO RenderType Int
+    , _shaderDrawPrimitive :: PrimitiveMode
+    , _shaderTexture :: Maybe ShaderTexture
+    , _shaderCustomUnis :: Maybe [UniformLocation]
+    }
+data ShaderTexture = ShaderTexture
+    { _textureObject :: TextureObject }
+
+makeLenses ''VAO
+makeLenses ''FullShader