From c904806462e2331a210833af9a183d6f6f0a03a3 Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Sat, 24 Dec 2016 22:46:03 +0100 Subject: fix DrawContext's uniform setup --- src/LambdaCube/GL/Backend.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/LambdaCube') diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs index 499498e..4280876 100644 --- a/src/LambdaCube/GL/Backend.hs +++ b/src/LambdaCube/GL/Backend.hs @@ -772,7 +772,7 @@ setupDrawContext glForceSetup glDrawContextRef glInput new = do glBindSampler (GL_TEXTURE0 + fromIntegral textureUnit) glSamplerObject -- setup sampler uniform mapping - setup glSamplerUniformMapping $ mapM_ $ \(textureUnit,GLSamplerUniform{..}) -> do + forM_ (glSamplerUniformMapping new) $ \(textureUnit,GLSamplerUniform{..}) -> do glUniform1i glUniformBinding (fromIntegral textureUnit) writeIORef glUniformBindingRef (fromIntegral textureUnit) -- cgit v1.2.3