From 51d36d68d94e3d5053dcda2ee072fe11893b727d Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Sun, 28 May 2017 19:14:53 -0600 Subject: bump version --- src/LambdaCube/GL/Mesh.hs | 1 - src/LambdaCube/GL/Type.hs | 8 ++++---- 2 files changed, 4 insertions(+), 5 deletions(-) (limited to 'src/LambdaCube') 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 ( MeshPrimitive(..), MeshAttribute(..), GPUMesh(..), GPUData(..), - meshData ) where 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 import Data.IORef import Data.Int -import Data.IntMap (IntMap) +import Data.IntMap.Strict (IntMap) import Data.Set (Set) import Data.Map (Map) import Data.Vector (Vector) @@ -79,9 +79,9 @@ data OrderJob data GLSlot = GLSlot - { objectMap :: IntMap Object - , sortedObjects :: Vector (Int,Object) - , orderJob :: OrderJob + { objectMap :: !(IntMap Object) + , sortedObjects :: !(Vector (Int,Object)) + , orderJob :: !OrderJob } data GLStorage -- cgit v1.2.3