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)