rattletrap-9.3.2: src/lib/Rattletrap/Encode/MusicStingerAttribute.hs

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 = do
  BinaryBits.putBool (musicStingerAttributeFlag musicStingerAttribute)
  putWord32Bits (musicStingerAttributeCue musicStingerAttribute)
  putWord8Bits (musicStingerAttributeTrigger musicStingerAttribute)