More TypeTag machinery.submit

1 files changed, 3 insertions, 3 deletions

diff --git a/src/LambdaCube/GL/Type.hs b/src/LambdaCube/GL/Type.hs
index 57f7df0..9069f37 100644
--- a/src/LambdaCube/GL/Type.hs
+++ b/src/LambdaCube/GL/Type.hs
@@ -140,10 +140,10 @@ data GLProgram
     = GLProgram
     { shaderObjects         :: [GLuint]
     , programObject         :: GLuint
-    , inputUniforms         :: Map String GLint
+    , inputUniforms         :: Map String GLint           -- foreach: GLSetUniform
     , inputTextures         :: Map String GLint   -- all input textures (render texture + uniform texture)
-    , inputTextureUniforms  :: Set String
-    , inputStreams          :: Map String (GLuint,String)
+    , inputTextureUniforms  :: Set String                 -- foreach: GLBindTexture
+    , inputStreams          :: Map String (GLuint,String) -- foreach: GLSetVertexAttrib*Array
     }
 
 data GLTexture