diff --git a/examples/HelloEmbedded.hs b/examples/HelloEmbedded.hs
--- a/examples/HelloEmbedded.hs
+++ b/examples/HelloEmbedded.hs
@@ -18,7 +18,7 @@
 main = do
     -- compile hello.lc to graphics pipeline description
     pipelineDesc <- LambdaCube.compileMain ["."] OpenGL33 "hello.lc" >>= \case
-      Left err  -> fail $ "compile error:\n" ++ err
+      Left err  -> fail $ "compile error:\n" ++ ppShow err
       Right pd  -> return pd
 
     win <- initWindow "LambdaCube 3D DSL Hello World" 640 640
diff --git a/lambdacube-gl.cabal b/lambdacube-gl.cabal
--- 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
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -852,7 +852,7 @@
 
 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