rattletrap-9.0.3: source/library/Rattletrap/Encode/ClubColorsAttribute.hs

module Rattletrap.Encode.ClubColorsAttribute
  ( putClubColorsAttribute
  )
where

import Rattletrap.Encode.Word8le
import Rattletrap.Type.ClubColorsAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putClubColorsAttribute :: ClubColorsAttribute -> BinaryBits.BitPut ()
putClubColorsAttribute clubColorsAttribute = do
  BinaryBits.putBool (clubColorsAttributeBlueFlag clubColorsAttribute)
  putWord8Bits (clubColorsAttributeBlueColor clubColorsAttribute)
  BinaryBits.putBool (clubColorsAttributeOrangeFlag clubColorsAttribute)
  putWord8Bits (clubColorsAttributeOrangeColor clubColorsAttribute)