Como faço para carregar uma textura usando o Haskell, OpenGL e a biblioteca do JuicyPixels?

Eu posso chegar até aqui:

<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>

Como faço para converter isso em um TextureObject? Eu acho que preciso fazer uma conversão entre um Vector Word8 e PixelData (para OpenGL reconhecer)