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 BoxRules ProgressiveDownload
instance IsBoxType' ProgressiveDownload where
type BoxContent ProgressiveDownload = FullBox 0 ProgressiveDownloadContent
toBoxType' _ = StdType "pdin"
type ProgressiveDownloadContent = U32 "rate" :+ U32 "delay"
pdinBox
:: ProgressiveDownloadContent -> Box' ProgressiveDownload
pdinBox = closedFullBox Default 0