Linting, haddocking

This commit is contained in:
2021-04-29 15:31:07 +02:00
parent 750a67ea6e
commit 6a38950501
34 changed files with 506 additions and 441 deletions
+5 -5
View File
@@ -1,12 +1,12 @@
{-# LANGUAGE TemplateHaskell #-}
{-
{- |
Datatypes used to setup and pass data to shaders.
-}
module Shader.Data
( VAO (..)
, FullShader (..)
, ShaderTexture (..)
-- lens functions
-- | Lens functions
, vao
, vaoBufferTargets
@@ -23,14 +23,14 @@ module Shader.Data
import Graphics.Rendering.OpenGL
import Foreign
import Control.Lens
{- Vertex array object: contains the reference to the object,
{- | Vertex array object: contains the reference to the object,
and its buffer targets.
-}
data VAO = VAO
{ _vao :: VertexArrayObject
, _vaoBufferTargets :: [(BufferObject,Ptr Float,Int)]
}
{-
{- |
Datatype containing the necessary information for a single shader.
-}
data FullShader a = FullShader
@@ -42,7 +42,7 @@ data FullShader a = FullShader
, _shaderTexture :: Maybe ShaderTexture
, _shaderCustomUnis :: Maybe [UniformLocation]
}
{-
{- |
Datatype containing the reference to a texture object.
-}
newtype ShaderTexture = ShaderTexture