module Data.ByteString.IsoBaseFileFormat.Boxes.MovieFragmentHeader where
import Data.ByteString.IsoBaseFileFormat.Box
import Data.ByteString.IsoBaseFileFormat.Util.BoxFields
import Data.ByteString.IsoBaseFileFormat.Util.FullBox
import Data.Default
movieFragmentHeader
:: MovieFragmentHeader-> Box (FullBox MovieFragmentHeader 0)
movieFragmentHeader = fullBox 0
newtype MovieFragmentHeader where
MovieFragmentHeader :: U32 "sequence_number" -> MovieFragmentHeader
deriving (IsBoxContent, Default)
instance IsBox MovieFragmentHeader
type instance BoxTypeSymbol MovieFragmentHeader = "mfhd"
movieFragmentHeaderStaticSize :: Num a => a
movieFragmentHeaderStaticSize = fromBoxSize 0 (boxSize (movieFragmentHeader def))