Work on geometry shader based shadows

src/Shader/AuxAddition.hs

@@ -1,5 +1,5 @@
 module Shader.AuxAddition
-    ( addTexture
+    ( addSamplerTexture2D
     , vaddTextureNoFilter
     , addTextureArray
     , addUniforms
@@ -20,8 +20,8 @@ import GLHelp
     
 -- I am not sure if this assumes that the shader is constructed directly before
 -- the texture is added...
-addTexture :: String -> FullShader -> IO FullShader
-addTexture = addTexture2D 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR
+addSamplerTexture2D :: String -> FullShader -> IO FullShader
+addSamplerTexture2D = addTexture2D 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR
 
 vaddTextureNoFilter :: String -> FullShader -> IO FullShader
 vaddTextureNoFilter = addTexture2D 1 GL_NEAREST GL_NEAREST