Continue work on shadow rendering

src/Shader/Data.hs

@@ -19,7 +19,7 @@ module Shader.Data
     , eboName
     , eboPtr
 
-    , shadProg'
+    , shadName
     , shadVAO'
     , shadPrim'
     , shadTex'
@@ -35,7 +35,7 @@ import Foreign
 import Control.Lens
 {- | Datatype containing the necessary information for a single shader.  -}
 data FullShader = FullShader
-    { _shadProg' :: GLuint -- should be shaderID
+    { _shadName :: GLuint -- should be shaderID
     , _shadVAO'  :: VAO
     , _shadPrim' :: EPrimitiveMode
     , _shadTex'  :: Maybe ShaderTexture