diff options
Diffstat (limited to 'Graphics/Glyph/Shaders.hs')
| -rw-r--r-- | Graphics/Glyph/Shaders.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Graphics/Glyph/Shaders.hs b/Graphics/Glyph/Shaders.hs index 296e4a8..99a0cfd 100644 --- a/Graphics/Glyph/Shaders.hs +++ b/Graphics/Glyph/Shaders.hs @@ -27,6 +27,9 @@ instance IsShaderSource BSL.ByteString where loadShader typ = loadShader typ . toStrict where toStrict = BS.concat . BSL.toChunks +noShader :: Maybe String +noShader = Nothing + loadShaderBS :: String -> ShaderType -> BS.ByteString -> IO (String, Maybe Shader) loadShaderBS ctx typ src = do shader <- createShader typ |