aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Spear/GL.hs4
-rw-r--r--Spear/Scene/Loader.hs2
2 files changed, 3 insertions, 3 deletions
diff --git a/Spear/GL.hs b/Spear/GL.hs
index eb84492..d3a42f0 100644
--- a/Spear/GL.hs
+++ b/Spear/GL.hs
@@ -213,8 +213,8 @@ detachShader prog shader = glDetachShader (getProgram prog) (getShader shader)
213-- 213--
214-- This function creates a new shader. To load source code into an existing shader, 214-- This function creates a new shader. To load source code into an existing shader,
215-- see 'loadSource', 'shaderSource' and 'readSource'. 215-- see 'loadSource', 'shaderSource' and 'readSource'.
216loadShader :: FilePath -> ShaderType -> Game s GLSLShader 216loadShader :: ShaderType -> FilePath -> Game s GLSLShader
217loadShader file shaderType = do 217loadShader shaderType file = do
218 shader <- newShader shaderType 218 shader <- newShader shaderType
219 loadSource file shader 219 loadSource file shader
220 compile file shader 220 compile file shader
diff --git a/Spear/Scene/Loader.hs b/Spear/Scene/Loader.hs
index 4467849..9d785fe 100644
--- a/Spear/Scene/Loader.hs
+++ b/Spear/Scene/Loader.hs
@@ -294,7 +294,7 @@ loadShader shaderType ((stype, file):xs) =
294 else Spear.Scene.Loader.loadShader shaderType xs 294 else Spear.Scene.Loader.loadShader shaderType xs
295 295
296loadShader' :: String -> GL.ShaderType -> Loader GL.GLSLShader 296loadShader' :: String -> GL.ShaderType -> Loader GL.GLSLShader
297loadShader' file shaderType = loadResource file shaders addShader $ GL.loadShader file shaderType 297loadShader' file shaderType = loadResource file shaders addShader $ GL.loadShader shaderType file
298 298
299newLight :: SceneGraph -> Loader () 299newLight :: SceneGraph -> Loader ()
300newLight _ = return () 300newLight _ = return ()