summaryrefslogtreecommitdiff
path: root/src/LambdaCube/GL
diff options
context:
space:
mode:
authorCsaba Hruska <csaba.hruska@gmail.com>2017-05-28 19:14:53 -0600
committerCsaba Hruska <csaba.hruska@gmail.com>2017-05-28 19:14:53 -0600
commit51d36d68d94e3d5053dcda2ee072fe11893b727d (patch)
treedd4040b43db03c79bfae6ede57c4cbc41cc4e05d /src/LambdaCube/GL
parent211a9753d1494b92e73eafd60c0a45c8420fda2d (diff)
bump version
Diffstat (limited to 'src/LambdaCube/GL')
-rw-r--r--src/LambdaCube/GL/Mesh.hs1
-rw-r--r--src/LambdaCube/GL/Type.hs8
2 files changed, 4 insertions, 5 deletions
diff --git a/src/LambdaCube/GL/Mesh.hs b/src/LambdaCube/GL/Mesh.hs
index 2c9dcda..95ca582 100644
--- a/src/LambdaCube/GL/Mesh.hs
+++ b/src/LambdaCube/GL/Mesh.hs
@@ -8,7 +8,6 @@ module LambdaCube.GL.Mesh (
8 MeshPrimitive(..), 8 MeshPrimitive(..),
9 MeshAttribute(..), 9 MeshAttribute(..),
10 GPUMesh(..), GPUData(..), 10 GPUMesh(..), GPUData(..),
11 meshData
12) where 11) where
13 12
14import Data.Maybe 13import Data.Maybe
diff --git a/src/LambdaCube/GL/Type.hs b/src/LambdaCube/GL/Type.hs
index b406fa6..49491ed 100644
--- a/src/LambdaCube/GL/Type.hs
+++ b/src/LambdaCube/GL/Type.hs
@@ -3,7 +3,7 @@ module LambdaCube.GL.Type where
3 3
4import Data.IORef 4import Data.IORef
5import Data.Int 5import Data.Int
6import Data.IntMap (IntMap) 6import Data.IntMap.Strict (IntMap)
7import Data.Set (Set) 7import Data.Set (Set)
8import Data.Map (Map) 8import Data.Map (Map)
9import Data.Vector (Vector) 9import Data.Vector (Vector)
@@ -79,9 +79,9 @@ data OrderJob
79 79
80data GLSlot 80data GLSlot
81 = GLSlot 81 = GLSlot
82 { objectMap :: IntMap Object 82 { objectMap :: !(IntMap Object)
83 , sortedObjects :: Vector (Int,Object) 83 , sortedObjects :: !(Vector (Int,Object))
84 , orderJob :: OrderJob 84 , orderJob :: !OrderJob
85 } 85 }
86 86
87data GLStorage 87data GLStorage