module Data.ByteString.IsoBaseFileFormat.Boxes.ProgressiveDownloadInformation
where
import Data.ByteString.IsoBaseFileFormat.Boxes.Box
import Data.ByteString.IsoBaseFileFormat.Boxes.BoxFields
import Data.ByteString.IsoBaseFileFormat.Boxes.FullBox
data ProgressiveDownload
instance IsBox ProgressiveDownload where
type BoxContent ProgressiveDownload = ProgressiveDownloadContent
type instance BoxTypeSymbol ProgressiveDownload = "pdin"
type ProgressiveDownloadContent = U32 "rate" :+ U32 "delay"
pdinBox
:: ProgressiveDownloadContent -> Box (FullBox ProgressiveDownload 0)
pdinBox = fullBox 0