[HOpenGL] bitmap loader

Hello everybody. I'm developing a HOpenGL bitmap loader, and what I've done so far is a 24-bit bitmap loader that is taking more seconds than expected to load a medium sized bitmap. It also makes the heap exhausted if the size of the file is greater than 900k +/-. At least, it works. Use function loadBitmap :: FilePath -> Maybe InvisibleColorList -> IO AwbfBitmap to load a 24-bit bitmap and loadBitmapList :: [(FilePath, Maybe InvisibleColorList)] -> IO [AwbfBitmap] to load multiple 24-bit bitmaps. I'm sending the code to you. Feel free to modify the file and perhaps figure out the solution for the delay problem.... Cheers, -- Andre