From d1d0946d084dac6666fb5e65ea71b1be9b8017eb Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 6 May 2019 02:34:32 -0400 Subject: Avoid checking automatic program inputs (gl_VertexID). --- src/LambdaCube/GL/Backend.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs index f3bfe47..50d0d3f 100644 --- a/src/LambdaCube/GL/Backend.hs +++ b/src/LambdaCube/GL/Backend.hs @@ -257,7 +257,11 @@ compileProgram p = do -- check program input (uniforms,uniformsType) <- queryUniforms po - (attributes,attributesType) <- queryStreams po + (attributes,attributesType) <- do + (as,ts) <- queryStreams po + let builtins = Map.singleton "gl_VertexID" () -- Avoid checking automatic inputs. + return (as Map.\\ builtins, ts Map.\\ builtins) + --print uniforms --print attributes let lcUniforms = (programUniforms p) `Map.union` (programInTextures p) -- cgit v1.2.3