2 files changed, 6 insertions, 3 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
     (attributes,attributesType) <- queryStreams po
     print uniforms
     print attributes
-    when (uniformsType /= (toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p)) $ fail "shader program uniform input mismatch!"
+    when (uniformsType /= (toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p)) $ do
+      putStrLn $ "expected: " ++ show ((toTrie $ programUniforms p) `unionL` (toTrie $ programInTextures p))
+      putStrLn $ "actual: " ++ show uniformsType
+      fail "shader program uniform input mismatch!"
     when (attributesType /= fmap snd (toTrie $ programStreams p)) $ fail $ "shader program stream input mismatch! " ++ show (attributesType,fmap snd (toTrie $ programStreams p))
     -- the public (user) pipeline and program input is encoded by the slots, therefore the programs does not distinct the render and slot textures input
     let inUniNames = toTrie $ programUniforms p
diff --git a/SampleIR.hs b/SampleIR.hs
index 6f81f3d..1332b6d 100644
--- a/SampleIR.hs
+++ b/SampleIR.hs
@@ -139,10 +139,10 @@ main = do
           let sn = ExpN srcName
           pplRes <- compileMain (ioFetch ["."]) OpenGL33 undefined sn
           case pplRes of
-            (Left err,a) -> putStrLn ("error: " ++ show err ++ show a) >> return Nothing
+            (Left err,a) -> putStrLn ("error: " ++ show err) >> return Nothing
             (Right (ppl,a),b) -> do
               putStrLn $ ppShow ppl
-              print [a,b]
+              --print [a,b]
               renderer <- allocPipeline ppl
               setPipelineInput renderer (Just pplInput)
               sortSlotObjects pplInput