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)