module Rattletrap.Encode.FlaggedByteAttribute
  ( putFlaggedByteAttribute
  )
where

import Rattletrap.Encode.Word8le
import Rattletrap.Type.FlaggedByteAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putFlaggedByteAttribute :: FlaggedByteAttribute -> BinaryBits.BitPut ()
putFlaggedByteAttribute :: FlaggedByteAttribute -> BitPut ()
putFlaggedByteAttribute FlaggedByteAttribute
flaggedByteAttribute = do
  Bool -> BitPut ()
BinaryBits.putBool (FlaggedByteAttribute -> Bool
flaggedByteAttributeFlag FlaggedByteAttribute
flaggedByteAttribute)
  Word8le -> BitPut ()
putWord8Bits (FlaggedByteAttribute -> Word8le
flaggedByteAttributeByte FlaggedByteAttribute
flaggedByteAttribute)