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 (
     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