Remove list layer while poking

2021-06-12 02:08:42 +02:00
parent 0cb0c752e2
commit 02a2d3920d
4 changed files with 45 additions and 45 deletions
@@ -47,7 +47,7 @@ data FullShader = FullShader
    { _shaderProgram :: Program
    , _shaderMatrixUniform :: UniformLocation
    , _shaderVAO :: VAO
-    , _shaderPokeStrategy :: RenderType -> [[[Float]]]-- -> F.FoldM IO RenderType Int
+    , _shaderPokeStrategy :: RenderType -> [[Float]]-- -> F.FoldM IO RenderType Int
    , _shaderDrawPrimitive :: PrimitiveMode
    , _shaderTexture :: Maybe ShaderTexture
    , _shaderCustomUnis :: [UniformLocation]