Cleanup

2023-03-10 09:39:40 +00:00
parent b1750ad028
commit dc3faeed63
8 changed files with 138 additions and 46 deletions
@@ -25,9 +25,9 @@ module Shader.Data
    , shadTex'
    , shadUnis'
 -- | Synonyms
-    , vert'
-    , geom'
-    , frag'
+    , vert
+    , geom
+    , frag
    ) where
 import Data.Vector (Vector)
 import Graphics.GL.Core45
@@ -80,10 +80,10 @@ data EPrimitiveMode
    | EPolygon
    | EPatches
 -- | Short synonyms for shader types
-vert', geom', frag' :: GLenum
-vert' = GL_VERTEX_SHADER
-geom' = GL_GEOMETRY_SHADER
-frag' = GL_FRAGMENT_SHADER
+vert, geom, frag :: GLenum
+vert = GL_VERTEX_SHADER
+geom = GL_GEOMETRY_SHADER
+frag = GL_FRAGMENT_SHADER
 makeLenses ''VAO
 makeLenses ''VBO
 makeLenses ''FullShader