From 0f01492b377ed52e7967c75e834ee7ad6d487163 Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Thu, 26 Jan 2017 00:36:48 +0000
Subject: fix calculation of active texture count, caused a bug when render
 textures were not binded properly, closes #5.

---
 src/LambdaCube/GL/Backend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/LambdaCube/GL')

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
-- 
cgit v1.2.3