module Data.ByteString.IsoBaseFileFormat.Boxes.SoundMediaHeader where
import Data.ByteString.IsoBaseFileFormat.Boxes.Box
import Data.ByteString.IsoBaseFileFormat.Boxes.BoxFields
import Data.ByteString.IsoBaseFileFormat.Boxes.FullBox
import Data.ByteString.IsoBaseFileFormat.Boxes.Handler
import Data.ByteString.IsoBaseFileFormat.Boxes.SpecificMediaHeader
type instance MediaHeaderFor 'AudioTrack = SoundMediaHeader
newtype SoundMediaHeader where
SoundMediaHeader
:: Template (I16 "balance") 0
:+ Constant (U16 "reserved") 0
-> SoundMediaHeader
deriving (Default, IsBoxContent)
soundMediaHeader :: SoundMediaHeader -> Box (FullBox SoundMediaHeader 0)
soundMediaHeader = fullBox 0
instance IsBox SoundMediaHeader
type instance BoxTypeSymbol SoundMediaHeader = "smhd"