Foo.hs

import Data.Binary
  
import Data.Binary.Get
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL

stream :: Binary a => BL.ByteString -> [a]
stream = go (runGetIncremental get) . BL.toChunks where
  go (Done rest _ a) []
    | B.null rest = [a]
    | otherwise = a:go (runGetIncremental get `pushChunk` rest) []
  go (Done rest _ a) (x:xs)
    | B.null rest = a:go (runGetIncremental get `pushChunk` x) xs
    | otherwise = a:go (runGetIncremental get ` pushChunk` rest) (x:xs)
  go (Partial f) [] = go (f Nothing) []
  go (Partial f) (x:xs) = go (f (Just x)) xs
  go (Fail _ _ s) _ = error s