diff options
| author | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-23 14:25:59 -0600 |
|---|---|---|
| committer | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-23 14:25:59 -0600 |
| commit | e3a07ab4ccf65ddf052b483cf879f6a9bdd97720 (patch) | |
| tree | f2806f605ec7d607813cb325c889307af379bab6 /Graphics/Glyph/Shaders.hs | |
| parent | 4d62a6d631fb9703d818654c5b9722e747cfe190 (diff) | |
| parent | 4319bad3c312545e56c236a0515d1c1e9cdbf03d (diff) | |
| download | terralloc-e3a07ab4ccf65ddf052b483cf879f6a9bdd97720.tar.gz terralloc-e3a07ab4ccf65ddf052b483cf879f6a9bdd97720.tar.bz2 terralloc-e3a07ab4ccf65ddf052b483cf879f6a9bdd97720.zip | |
Merge branch 'sun'
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 fa8712c..6b3ddde 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 |