module Rattletrap.Encode.CustomDemolishAttribute ( putCustomDemolishAttribute ) where import Rattletrap.Encode.DemolishAttribute import Rattletrap.Encode.Int32le import Rattletrap.Type.CustomDemolishAttribute import qualified Data.Binary.Bits.Put as BinaryBits putCustomDemolishAttribute :: CustomDemolishAttribute -> BinaryBits.BitPut () putCustomDemolishAttribute :: CustomDemolishAttribute -> BitPut () putCustomDemolishAttribute CustomDemolishAttribute x = do Bool -> BitPut () BinaryBits.putBool (CustomDemolishAttribute -> Bool customDemolishAttributeFlag CustomDemolishAttribute x) Int32le -> BitPut () putInt32Bits (CustomDemolishAttribute -> Int32le customDemolishAttributeId CustomDemolishAttribute x) DemolishAttribute -> BitPut () putDemolishAttribute (CustomDemolishAttribute -> DemolishAttribute customDemolishAttributeDemolish CustomDemolishAttribute x)