[HOpenGL] Add texture to Sphere object

[er9999]

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!

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/hopengl/attachments/20110311/70496ee1/attachment.htm>