module Data.ByteString.IsoBaseFileFormat.Boxes.ProgressiveDownloadInformation
where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.BoxFields
import Data.ByteString.IsoBaseFileFormat.Util.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