module Rattletrap.Encode.MusicStingerAttribute ( putMusicStingerAttribute ) where import Rattletrap.Encode.Word32le import Rattletrap.Encode.Word8le import Rattletrap.Type.MusicStingerAttribute import qualified Data.Binary.Bits.Put as BinaryBits putMusicStingerAttribute :: MusicStingerAttribute -> BinaryBits.BitPut () putMusicStingerAttribute :: MusicStingerAttribute -> BitPut () putMusicStingerAttribute MusicStingerAttribute musicStingerAttribute = do Bool -> BitPut () BinaryBits.putBool (MusicStingerAttribute -> Bool musicStingerAttributeFlag MusicStingerAttribute musicStingerAttribute) Word32le -> BitPut () putWord32Bits (MusicStingerAttribute -> Word32le musicStingerAttributeCue MusicStingerAttribute musicStingerAttribute) Word8le -> BitPut () putWord8Bits (MusicStingerAttribute -> Word8le musicStingerAttributeTrigger MusicStingerAttribute musicStingerAttribute)