diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2017-05-28 19:14:53 -0600 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2017-05-28 19:14:53 -0600 |
commit | 51d36d68d94e3d5053dcda2ee072fe11893b727d (patch) | |
tree | dd4040b43db03c79bfae6ede57c4cbc41cc4e05d /src/LambdaCube/GL | |
parent | 211a9753d1494b92e73eafd60c0a45c8420fda2d (diff) |
bump version
Diffstat (limited to 'src/LambdaCube/GL')
-rw-r--r-- | src/LambdaCube/GL/Mesh.hs | 1 | ||||
-rw-r--r-- | src/LambdaCube/GL/Type.hs | 8 |
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 | ||
14 | import Data.Maybe | 13 | import 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 | ||
4 | import Data.IORef | 4 | import Data.IORef |
5 | import Data.Int | 5 | import Data.Int |
6 | import Data.IntMap (IntMap) | 6 | import Data.IntMap.Strict (IntMap) |
7 | import Data.Set (Set) | 7 | import Data.Set (Set) |
8 | import Data.Map (Map) | 8 | import Data.Map (Map) |
9 | import Data.Vector (Vector) | 9 | import Data.Vector (Vector) |
@@ -79,9 +79,9 @@ data OrderJob | |||
79 | 79 | ||
80 | data GLSlot | 80 | data 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 | ||
87 | data GLStorage | 87 | data GLStorage |