module Rattletrap.Encode.FlaggedIntAttribute ( putFlaggedIntAttribute ) where import Rattletrap.Encode.Int32le import Rattletrap.Type.FlaggedIntAttribute import qualified Data.Binary.Bits.Put as BinaryBits putFlaggedIntAttribute :: FlaggedIntAttribute -> BinaryBits.BitPut () putFlaggedIntAttribute :: FlaggedIntAttribute -> BitPut () putFlaggedIntAttribute FlaggedIntAttribute flaggedIntAttribute = do Bool -> BitPut () BinaryBits.putBool (FlaggedIntAttribute -> Bool flaggedIntAttributeFlag FlaggedIntAttribute flaggedIntAttribute) Int32le -> BitPut () putInt32Bits (FlaggedIntAttribute -> Int32le flaggedIntAttributeInt FlaggedIntAttribute flaggedIntAttribute)