Shows how to use Friday, Friday-JuicyPixels and FFmpeg-light to get a lazy image list.

LazyImageStream.hs

module LazyDemo where

import Vision.Image.JuicyPixels
import Vision.Image (RGBA)
import Codec.FFmpeg
import System.IO.Unsafe

lazyStream :: FilePath -> IO [RGBA]
lazyStream fp = do
    initFFmpeg
    (rd,close) <- imageReader fp
    go rd close
  where
   go rd close = do
       mi <- rd
       case mi of
           Nothing -> close >> return []
           Just i  -> (toFridayRGBA i : ) <$> unsafeInterleaveIO (go rd close)