blergh

app/Classes/Renderable.hs

@@ -0,0 +1,11 @@
+{-# LANGUAGE TypeFamilies #-}
+module Classes.Renderable where
+
+class Renderable a where
+  type VertexObjects a :: *
+
+  type ShaderObjects a :: *
+
+  type RenderableInfo a :: *
+
+  draw :: VertexObjects a -> ShaderObjects a -> RenderableInfo a -> IO ()

app/Types/Renderer.hs

@@ -5,11 +5,11 @@ import Graphics.Rendering.OpenGL as GL
 data RenderObjects = RenderObjects
   { roVAO :: GL.VertexArrayObject
   , roVBO :: GL.BufferObject
-  , shader :: 
   }
 
-class Renderable a where
+data GL.Uniform u => ShaderObjects u = Shaderobjects
-  type VertexObjects :: *
+  { soVertexShader   :: GL.Shader
-
+  , soFragmentShader :: GL.Shader
-  draw = do
+  , soProgram        :: GL.Program
-    
+  , soUniforms       :: [(String, u)]
+  }