Загрузка текстуры JuicyPixels в Haskell OpenGL?

Как загрузить текстуру с помощью Haskell, OpenGL и библиотеки JuicyPixels?

Я могу дойти до этого:

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

Как преобразовать это в TextureObject? Я думаю, мне нужно сделать преобразование между Vector Word8 и PixelData (для распознавания OpenGL)