Linting, haddocking
This commit is contained in:
+5
-5
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user