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)