Remove RenderType datatype

src/Shader/Data.hs

@@ -16,7 +16,6 @@ module Shader.Data
 
     , shaderProgram
     , shaderVAO
-    , shaderPokeStrategy
     , shaderDrawPrimitive
     , shaderTexture
     , shaderCustomUnis
@@ -26,7 +25,6 @@ module Shader.Data
     , vshaderDrawPrimitive
     , vshaderTexture
     , vshaderCustomUnis
-    , vshaderPokeTest
 
     , psPoly 
     , psPolyz
@@ -38,8 +36,6 @@ module Shader.Data
 -- TODO make lenses for VBO object
 --    , textureObject 
     ) where
-import Picture.Data
-
 import Graphics.Rendering.OpenGL
 import Foreign
 import Control.Lens
@@ -66,7 +62,6 @@ data VShader = VShader
     , _vshaderDrawPrimitive :: EPrimitiveMode
     , _vshaderTexture :: Maybe ShaderTexture
     , _vshaderCustomUnis :: [UniformLocation]
-    , _vshaderPokeTest :: VertexType -> Bool
     }
 data PicShads a = PicShads
     { _psPoly   :: a
@@ -136,7 +131,6 @@ instance Foldable PicShads where
 data FullShader = FullShader
     { _shaderProgram :: Program
     , _shaderVAO :: VAO
-    , _shaderPokeStrategy :: RenderType -> [[Float]]-- -> F.FoldM IO RenderType Int
     , _shaderDrawPrimitive :: EPrimitiveMode
     , _shaderTexture :: Maybe ShaderTexture
     , _shaderCustomUnis :: [UniformLocation]