-- The snappy format itself doesn't have a concept of a header.
-- parseHeader :: Parser ()

-- | Parse a single block of the compressed bytestream, returning a segment
-- of the uncompressed stream.
parseBlock :: Parser ByteString
parseBlock =
    Snappy.decompress <$> AP.takeByteString
parseBlock :: Parser ByteString
parseBlock =
    Snappy.decompress <$> AP.takeByteString
parseBlock =
    Snappy.decompress <$> AP.takeByteString