getSubroutineIndex :: MonadIO m => GLProgram -> String -> m GLuint
getSubroutineIndex (GLProgram p) subroutine =
  liftIO (withCString subroutine
                      (glGetSubroutineIndex p GL_FRAGMENT_SHADER))
getSubroutineIndex :: MonadIO m => GLProgram -> String -> m GLuint
getSubroutineIndex (GLProgram p) subroutine =
  liftIO (withCString subroutine
                      (glGetSubroutineIndex p GL_FRAGMENT_SHADER))
getSubroutineIndex (GLProgram p) subroutine =
  liftIO (withCString subroutine
                      (glGetSubroutineIndex p GL_FRAGMENT_SHADER))