[Haskell-beginners] Trying to read a bitmap with hOpenGL

Hi All, I have been following an OpenGL book which has its examples in cpp, but using haskell instead. I have a problem when trying to read a bitmap, I haven't managed to render the file to the buffer, I did a little parser based on the one in RWH for the bmp file, and apparently everything seems to work well, but when I call drawPixels I don't get a clear image. The code that I'm using is here : http://gist.github.com/160787 What am I doing wrong ? Thanks in advance for any help. abuiles