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 | |
| parent | fc8c62752124549f9ac921a18ebc9cc08885a0a9 (diff) | |
fix DrawContext's uniform setup
| -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 | ||