1 files changed, 2 insertions, 2 deletions

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