From 18fa216dff1a7e685692a957d7889f2f339e04e2 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 9 Mar 2023 09:55:57 +0000
Subject: [PATCH] Cleanup

---
 src/Shader.hs      |  6 +-----
 src/Shader/Data.hs | 22 +---------------------
 2 files changed, 2 insertions(+), 26 deletions(-)

diff --git a/src/Shader.hs b/src/Shader.hs
index 9c9446df6..3088153a6 100644
--- a/src/Shader.hs
+++ b/src/Shader.hs
@@ -1,6 +1,5 @@
 module Shader
-    ( freeShaderPointers
-    , freeShaderPointers'
+    ( freeShaderPointers'
     , drawShaderLay
     , shadVBOptr
     , shadVBOptr'
@@ -57,9 +56,6 @@ drawShader fs i = do
         0 
         (fromIntegral i)
 
-freeShaderPointers :: FullShader -> IO ()
-freeShaderPointers = free . _vboPtr . _vaoVBO . _shadVAO
-
 freeShaderPointers' :: FullShader' -> IO ()
 freeShaderPointers' = free . _vboPtr . _vaoVBO . _shadVAO'
 
diff --git a/src/Shader/Data.hs b/src/Shader/Data.hs
index b6d845ad7..483855368 100644
--- a/src/Shader/Data.hs
+++ b/src/Shader/Data.hs
@@ -5,18 +5,13 @@ module Shader.Data
     ( VAO (..)
     , VBO (..)
     , EBO (..)
-    , FullShader (..)
+--    , FullShader (..)
     , FullShader' (..)
     , ShaderTexture (..)
     , EPrimitiveMode (..)
 -- | Lens functions
     , vaoName
     , vaoVBO
-    , shadProg
-    , shadVAO
-    , shadPrim
-    , shadTex
-    , shadUnis
     , vbo
     , vboPtr
     , vboAttribSizes
@@ -30,9 +25,6 @@ module Shader.Data
     , shadTex'
     , shadUnis'
 -- | Synonyms
-    , vert
-    , geom
-    , frag
     , vert'
     , geom'
     , frag'
@@ -43,13 +35,6 @@ import Graphics.GL.Core43
 import Foreign
 import Control.Lens
 {- | Datatype containing the necessary information for a single shader.  -}
-data FullShader = FullShader
-    { _shadProg :: Program
-    , _shadVAO  :: VAO
-    , _shadPrim :: EPrimitiveMode
-    , _shadTex  :: Maybe ShaderTexture
-    , _shadUnis :: Vector UniformLocation
-    }
 data FullShader' = FullShader'
     { _shadProg' :: GLuint -- should be shaderID
     , _shadVAO'  :: VAO
@@ -96,16 +81,11 @@ data EPrimitiveMode
     | EPolygon
     | EPatches
 -- | Short synonyms for shader types
-vert, geom, frag :: ShaderType
-vert = VertexShader
-geom = GeometryShader
-frag = FragmentShader
 vert', geom', frag' :: GLenum
 vert' = GL_VERTEX_SHADER
 geom' = GL_GEOMETRY_SHADER
 frag' = GL_FRAGMENT_SHADER
 makeLenses ''VAO
 makeLenses ''VBO
-makeLenses ''FullShader
 makeLenses ''FullShader'
 makeLenses ''EBO