summaryrefslogtreecommitdiff
path: root/src/LambdaCube/GL
diff options
context:
space:
mode:
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