From 5ca4d7845df57242e4a2c85030693faab9b17822 Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Fri, 12 Feb 2016 17:07:41 +0100
Subject: improve exceptions

---
 src/LambdaCube/GL/Backend.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/LambdaCube/GL/Backend.hs')

diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs
index 40abc6d..1d910a2 100644
--- a/src/LambdaCube/GL/Backend.hs
+++ b/src/LambdaCube/GL/Backend.hs
@@ -217,11 +217,11 @@ compileProgram p = do
     --putStr "    + setup shader output mapping: " >> printGLStatus
 
     glLinkProgram po
-    printProgramLog po
+    log <- printProgramLog po
 
     -- check link status
     status <- glGetProgramiv1 GL_LINK_STATUS po
-    when (status /= fromIntegral GL_TRUE) $ fail "link program failed!"
+    when (status /= fromIntegral GL_TRUE) $ fail $ unlines ["link program failed:",log]
 
     -- check program input
     (uniforms,uniformsType) <- queryUniforms po
-- 
cgit v1.2.3