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)