¿Cómo puedo cargar una textura utilizando Haskell, OpenGL y la biblioteca JuicyPixels?

Puedo llegar tan lejos como esto:

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

¿Cómo puedo convertir esto en un TextureObject? Creo que necesito hacer una conversión entre un Vector Word8 y PixelData (para que OpenGL lo reconozca)