summaryrefslogtreecommitdiff
path: root/src/LambdaCube/GL/Backend.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/LambdaCube/GL/Backend.hs')
-rw-r--r--src/LambdaCube/GL/Backend.hs6
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)