module Rattletrap.Encode.TeamPaintAttribute ( putTeamPaintAttribute ) where import Rattletrap.Encode.Word32le import Rattletrap.Encode.Word8le import Rattletrap.Type.TeamPaintAttribute import qualified Data.Binary.Bits.Put as BinaryBits putTeamPaintAttribute :: TeamPaintAttribute -> BinaryBits.BitPut () putTeamPaintAttribute :: TeamPaintAttribute -> BitPut () putTeamPaintAttribute TeamPaintAttribute teamPaintAttribute = do Word8le -> BitPut () putWord8Bits (TeamPaintAttribute -> Word8le teamPaintAttributeTeam TeamPaintAttribute teamPaintAttribute) Word8le -> BitPut () putWord8Bits (TeamPaintAttribute -> Word8le teamPaintAttributePrimaryColor TeamPaintAttribute teamPaintAttribute) Word8le -> BitPut () putWord8Bits (TeamPaintAttribute -> Word8le teamPaintAttributeAccentColor TeamPaintAttribute teamPaintAttribute) Word32le -> BitPut () putWord32Bits (TeamPaintAttribute -> Word32le teamPaintAttributePrimaryFinish TeamPaintAttribute teamPaintAttribute) Word32le -> BitPut () putWord32Bits (TeamPaintAttribute -> Word32le teamPaintAttributeAccentFinish TeamPaintAttribute teamPaintAttribute)