Wie lade ich eine Textur mit Haskell, OpenGL und der JuicyPixels-Bibliothek?

Ich kann so weit kommen:

<code>loadImage :: IO ()
loadImage = do image <- readPng "data/Picture.png"
               case image of 
                 (Left s) -> do print s
                                exitWith (ExitFailure 1)
                 (Right d) -> do case (ImageRGBA i) -> do etc...
</code>

Wie konvertiere ich das in ein TextureObject? Ich denke, ich muss eine Konvertierung zwischen einem Vector Word8 und PixelData durchführen (damit OpenGL erkennt)