diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2017-01-26 00:36:48 +0000 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2017-01-26 00:37:03 +0000 |
commit | 0f01492b377ed52e7967c75e834ee7ad6d487163 (patch) | |
tree | 0082f89b6d4079d7d7b310421d5a1e371ae914a4 /src/LambdaCube | |
parent | 83f4f04f20d9a40380ed2ab16912be19b6379173 (diff) |
fix calculation of active texture count, caused a bug when render textures were not binded properly, closes #5.
Diffstat (limited to 'src/LambdaCube')
-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 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} | |||
852 | 852 | ||
853 | drawContext programs = do | 853 | drawContext programs = do |
854 | GLProgram{..} <- (programs !) <$> gets currentProgram | 854 | GLProgram{..} <- (programs !) <$> gets currentProgram |
855 | let f = take (Set.size inputTextureUniforms) . IntMap.toList | 855 | let f = take (Map.size inputTextures) . IntMap.toList |
856 | GLDrawContext <$> gets rasterContext | 856 | GLDrawContext <$> gets rasterContext |
857 | <*> gets accumulationContext | 857 | <*> gets accumulationContext |
858 | <*> gets renderTarget | 858 | <*> gets renderTarget |