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 -> BitPut () putClubColorsAttribute ClubColorsAttribute clubColorsAttribute = do Bool -> BitPut () BinaryBits.putBool (ClubColorsAttribute -> Bool clubColorsAttributeBlueFlag ClubColorsAttribute clubColorsAttribute) Word8le -> BitPut () putWord8Bits (ClubColorsAttribute -> Word8le clubColorsAttributeBlueColor ClubColorsAttribute clubColorsAttribute) Bool -> BitPut () BinaryBits.putBool (ClubColorsAttribute -> Bool clubColorsAttributeOrangeFlag ClubColorsAttribute clubColorsAttribute) Word8le -> BitPut () putWord8Bits (ClubColorsAttribute -> Word8le clubColorsAttributeOrangeColor ClubColorsAttribute clubColorsAttribute)