diff options
Diffstat (limited to 'src/LambdaCube/GL/Util.hs')
| -rw-r--r-- | src/LambdaCube/GL/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/LambdaCube/GL/Util.hs b/src/LambdaCube/GL/Util.hs index 28ab935..c5c6608 100644 --- a/src/LambdaCube/GL/Util.hs +++ b/src/LambdaCube/GL/Util.hs | |||
| @@ -284,7 +284,7 @@ printProgramLog o = do | |||
| 284 | glGetProgramInfoLog o (fromIntegral i) sizePtr ps | 284 | glGetProgramInfoLog o (fromIntegral i) sizePtr ps |
| 285 | size <- peek sizePtr | 285 | size <- peek sizePtr |
| 286 | log <- peekCStringLen (castPtr ps, fromIntegral size) | 286 | log <- peekCStringLen (castPtr ps, fromIntegral size) |
| 287 | putStrLn log | 287 | unless (null log) $ putStrLn log |
| 288 | 288 | ||
| 289 | compileShader :: GLuint -> [String] -> IO () | 289 | compileShader :: GLuint -> [String] -> IO () |
| 290 | compileShader o srcl = withMany withCString srcl $! \l -> withArray l $! \p -> do | 290 | compileShader o srcl = withMany withCString srcl $! \l -> withArray l $! \p -> do |