getUniformBlockIndex :: MonadIO m => GLProgram -> String -> m GLuint
getUniformBlockIndex (GLProgram p) block =
  liftIO (withCString block
                      (glGetUniformBlockIndex p))
getUniformBlockIndex :: MonadIO m => GLProgram -> String -> m GLuint
getUniformBlockIndex (GLProgram p) block =
  liftIO (withCString block
                      (glGetUniformBlockIndex p))
getUniformBlockIndex (GLProgram p) block =
  liftIO (withCString block
                      (glGetUniformBlockIndex p))