diff options
-rw-r--r-- | src/LambdaCube/GL/Backend.hs | 6 |
1 files changed, 5 insertions, 1 deletions
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 | |||
257 | 257 | ||
258 | -- check program input | 258 | -- check program input |
259 | (uniforms,uniformsType) <- queryUniforms po | 259 | (uniforms,uniformsType) <- queryUniforms po |
260 | (attributes,attributesType) <- queryStreams po | 260 | (attributes,attributesType) <- do |
261 | (as,ts) <- queryStreams po | ||
262 | let builtins = Map.singleton "gl_VertexID" () -- Avoid checking automatic inputs. | ||
263 | return (as Map.\\ builtins, ts Map.\\ builtins) | ||
264 | |||
261 | --print uniforms | 265 | --print uniforms |
262 | --print attributes | 266 | --print attributes |
263 | let lcUniforms = (programUniforms p) `Map.union` (programInTextures p) | 267 | let lcUniforms = (programUniforms p) `Map.union` (programInTextures p) |