Redo mutable changes

src/Shader.hs

@@ -12,7 +12,7 @@ module Shader
 import Shader.Data
 import Shader.Parameters
 import Shader.ExtraPrimitive
-import Shader.Poke
+--import Shader.Poke
 --import Layers
 --import MatrixHelper
 
@@ -82,8 +82,8 @@ drawShaderLay l fs i = do
 
 drawShaderLay' :: Int -> UMV.MVector (PrimState IO) Int -> Int -> VShader -> IO ()
 {-# INLINE drawShaderLay' #-}
-drawShaderLay' l countsVector index fs = do 
-    i <- UMV.read countsVector index
+drawShaderLay' l countsVector shadIn fs = do 
+    i <- UMV.read countsVector shadIn
     currentProgram $= Just (_vshaderProgram fs)
     bindVertexArrayObject $= Just (_vao $ _vshaderVAO fs)
     case _vshaderTexture fs of