fix calculation of active texture count, caused a bug when render textures were not binded properly, closes #5.

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 @@
 name:                lambdacube-gl
-version:             0.5.2.2
+version:             0.5.2.3
 synopsis:            OpenGL 3.3 Core Profile backend for LambdaCube 3D
 description:         OpenGL 3.3 Core Profile backend for LambdaCube 3D
 homepage:            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}
 
 drawContext programs = do
   GLProgram{..} <- (programs !) <$> gets currentProgram
-  let f = take (Set.size inputTextureUniforms) . IntMap.toList
+  let f = take (Map.size inputTextures) . IntMap.toList
   GLDrawContext <$> gets rasterContext
                 <*> gets accumulationContext
                 <*> gets renderTarget