1 files changed, 1 insertions, 1 deletions

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