Cleanup matrices

src/Shader/Compile.hs

@@ -42,8 +42,7 @@ makeShader s shaderlist sizes pm renStrat = do
 makeSourcedShader :: String -> [ShaderType] -> IO Program
 makeSourcedShader s sts = do
     sources <- forM sts $ \st -> BS.readFile ("shader/" ++ s ++ shaderTypeExt st)
-    prog <- makeShaderProgram s $ zip sts sources
-    return prog
+    makeShaderProgram s $ zip sts sources
 
 shaderTypeExt :: ShaderType -> String
 shaderTypeExt VertexShader   = ".vert"