Use shaderSourceBS.

Author: svenpanne

examples/Misc/SmoothOpenGL3.hs

@@ -109,7 +109,7 @@ compileAndCheck = checked compileShader compileStatus shaderInfoLog "compile"
 compileShaderSource :: ShaderType -> B.ByteString -> IO Shader
 compileShaderSource st source = do
    shader <- createShader st
-   shaderSource shader $= source
+   shaderSourceBS shader $= source
    compileAndCheck shader
    return shader
 

examples/OrangeBook/ogl2brick/Brick.hs

@@ -294,7 +294,7 @@ readAndCompileShader :: ShaderType -> FilePath -> IO Shader
 readAndCompileShader st filePath = do
    src <- B.readFile filePath
    shader <- createShader st
-   shaderSource shader $= src
+   shaderSourceBS shader $= src
    compileShader shader
    reportErrors
    ok <- get (compileStatus shader)

examples/RedBook8/common/LoadShaders.hs

@@ -72,7 +72,7 @@ loadCompileAttach _ [] = return ()
 loadCompileAttach program (ShaderInfo shType source : infos) =
    createShader shType `bracketOnError` deleteObjectName $ \shader -> do
       src <- getSource source
-      shaderSource shader $= src
+      shaderSourceBS shader $= src
       compileAndCheck shader
       attachShader program shader
       loadCompileAttach program infos