Commit before attempting to change cloud shading

src/Shader/Data.hs

@@ -13,6 +13,7 @@ module Shader.Data
     , vaoName
     , shaderUINT
     , shaderPrimitive
+    , shaderVAO
 
     , textureObject
 
@@ -45,6 +46,7 @@ data FullShader = FullShader
 data Shader = Shader
     { _shaderUINT :: GLuint -- should be shaderID
     , _shaderPrimitive :: GLenum
+    , _shaderVAO :: VAO
     }
 {- | Vertex array object: contains the reference to the object,
 and its buffer targets.  -}