[HOpenGL] Add texture to Sphere object

Hello, How can I add a texture to the sphere object? In c++, I only need to do quadratic=gluNewQuadric(); gluQuadricNormals(quadratic, GLU_SMOOTH); gluQuadricTexture(quadratic, GL_TRUE); Then I can bind a texture to the sphere, can we do that in HOpenGL? If so, can anyone give me an example for that? I am new for Haskell and not sure how to convert to Haskell version. Thanks!