module Rattletrap.Encode.ByteAttribute
  ( putByteAttribute
  )
where

import Rattletrap.Encode.Word8le
import Rattletrap.Type.ByteAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putByteAttribute :: ByteAttribute -> BinaryBits.BitPut ()
putByteAttribute :: ByteAttribute -> BitPut ()
putByteAttribute ByteAttribute
byteAttribute =
  Word8le -> BitPut ()
putWord8Bits (ByteAttribute -> Word8le
byteAttributeValue ByteAttribute
byteAttribute)