diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 22:46:03 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 22:46:03 +0100 |
commit | c904806462e2331a210833af9a183d6f6f0a03a3 (patch) | |
tree | 4d83466494f54600e063149b91f503144e0b623a /src/LambdaCube/GL | |
parent | fc8c62752124549f9ac921a18ebc9cc08885a0a9 (diff) |
fix DrawContext's uniform setup
Diffstat (limited to 'src/LambdaCube/GL')
-rw-r--r-- | src/LambdaCube/GL/Backend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
772 | glBindSampler (GL_TEXTURE0 + fromIntegral textureUnit) glSamplerObject | 772 | glBindSampler (GL_TEXTURE0 + fromIntegral textureUnit) glSamplerObject |
773 | 773 | ||
774 | -- setup sampler uniform mapping | 774 | -- setup sampler uniform mapping |
775 | setup glSamplerUniformMapping $ mapM_ $ \(textureUnit,GLSamplerUniform{..}) -> do | 775 | forM_ (glSamplerUniformMapping new) $ \(textureUnit,GLSamplerUniform{..}) -> do |
776 | glUniform1i glUniformBinding (fromIntegral textureUnit) | 776 | glUniform1i glUniformBinding (fromIntegral textureUnit) |
777 | writeIORef glUniformBindingRef (fromIntegral textureUnit) | 777 | writeIORef glUniformBindingRef (fromIntegral textureUnit) |
778 | 778 | ||