testing keycode remapping

src/Shader.hs

@@ -240,6 +240,7 @@ compileAndCheckShader str (shaderType,sourceCode) = do
         putStrLn $ str ++ ": Shader compile: " ++ show shaderType ++ " : " ++ show infoLog
     return theShader
 
+resetShaderUniforms :: [(Program, [UniformLocation])] -> IO ()
 resetShaderUniforms = setShaderUniforms 0 1 (0,0) (2,2)
 {-# INLINE resetShaderUniforms #-}