Remove polymorphism of shader type

2021-06-11 19:41:17 +02:00
parent 0e0d8f4e99
commit 7b6521587d
6 changed files with 61 additions and 52 deletions
@@ -21,6 +21,8 @@ module Shader.Data

 --    , textureObject 
    ) where
+import Picture.Data
+
 import Graphics.Rendering.OpenGL
 import Foreign
 import Control.Lens
@@ -42,11 +44,11 @@ data VBO = VBO
    }

 {- | Datatype containing the necessary information for a single shader.  -}
-data FullShader a = FullShader
+data FullShader = FullShader
    { _shaderProgram :: Program
    , _shaderMatrixUniform :: UniformLocation
    , _shaderVAO :: VAO
-    , _shaderPokeStrategy :: a -> [[[Float]]]-- -> F.FoldM IO RenderType Int
+    , _shaderPokeStrategy :: RenderType -> [[[Float]]]-- -> F.FoldM IO RenderType Int
    , _shaderDrawPrimitive :: PrimitiveMode
    , _shaderTexture :: Maybe ShaderTexture
    , _shaderCustomUnis :: [UniformLocation]