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/Type.hs | |
parent | 211a9753d1494b92e73eafd60c0a45c8420fda2d (diff) |
bump version
Diffstat (limited to 'src/LambdaCube/GL/Type.hs')
-rw-r--r-- | src/LambdaCube/GL/Type.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |