summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lambdacube-gl.cabal2
-rw-r--r--src/LambdaCube/GL/Backend.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/lambdacube-gl.cabal b/lambdacube-gl.cabal
index 56e9cfc..b8b365b 100644
--- a/lambdacube-gl.cabal
+++ b/lambdacube-gl.cabal
@@ -1,5 +1,5 @@
1name: lambdacube-gl 1name: lambdacube-gl
2version: 0.5.2.2 2version: 0.5.2.3
3synopsis: OpenGL 3.3 Core Profile backend for LambdaCube 3D 3synopsis: OpenGL 3.3 Core Profile backend for LambdaCube 3D
4description: OpenGL 3.3 Core Profile backend for LambdaCube 3D 4description: OpenGL 3.3 Core Profile backend for LambdaCube 3D
5homepage: http://lambdacube3d.com 5homepage: http://lambdacube3d.com
diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs
index 84e5b04..324b3e6 100644
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -852,7 +852,7 @@ emit cmd = modify $ \s -> s {drawCommands = cmd : drawCommands s}
852 852
853drawContext programs = do 853drawContext programs = do
854 GLProgram{..} <- (programs !) <$> gets currentProgram 854 GLProgram{..} <- (programs !) <$> gets currentProgram
855 let f = take (Set.size inputTextureUniforms) . IntMap.toList 855 let f = take (Map.size inputTextures) . IntMap.toList
856 GLDrawContext <$> gets rasterContext 856 GLDrawContext <$> gets rasterContext
857 <*> gets accumulationContext 857 <*> gets accumulationContext
858 <*> gets renderTarget 858 <*> gets renderTarget