summaryrefslogtreecommitdiff
path: root/Backend/GL/Backend.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Backend/GL/Backend.hs')
-rw-r--r--Backend/GL/Backend.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Backend/GL/Backend.hs b/Backend/GL/Backend.hs
index 9adff30..decf93c 100644
--- a/Backend/GL/Backend.hs
+++ b/Backend/GL/Backend.hs
@@ -225,7 +225,10 @@ compileProgram uniTrie p = do
225 (attributes,attributesType) <- queryStreams po 225 (attributes,attributesType) <- queryStreams po
226 print uniforms 226 print uniforms
227 print attributes 227 print attributes
228 when (uniformsType /= (toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p)) $ fail "shader program uniform input mismatch!" 228 when (uniformsType /= (toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p)) $ do
229 putStrLn $ "expected: " ++ show ((toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p))
230 putStrLn $ "actual: " ++ show uniformsType
231 fail "shader program uniform input mismatch!"
229 when (attributesType /= fmap snd (toTrie $ programStreams p)) $ fail $ "shader program stream input mismatch! " ++ show (attributesType,fmap snd (toTrie $ programStreams p)) 232 when (attributesType /= fmap snd (toTrie $ programStreams p)) $ fail $ "shader program stream input mismatch! " ++ show (attributesType,fmap snd (toTrie $ programStreams p))
230 -- the public (user) pipeline and program input is encoded by the slots, therefore the programs does not distinct the render and slot textures input 233 -- the public (user) pipeline and program input is encoded by the slots, therefore the programs does not distinct the render and slot textures input
231 let inUniNames = toTrie $ programUniforms p 234 let inUniNames = toTrie $ programUniforms p