[HOpenGL] two bugs in ShaderObjects.hs