module Rattletrap.Encode.ExtendedExplosionAttribute
  ( putExtendedExplosionAttribute
  )
where

import Rattletrap.Encode.ExplosionAttribute
import Rattletrap.Encode.FlaggedIntAttribute
import Rattletrap.Type.ExtendedExplosionAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putExtendedExplosionAttribute
  :: ExtendedExplosionAttribute -> BinaryBits.BitPut ()
putExtendedExplosionAttribute :: ExtendedExplosionAttribute -> BitPut ()
putExtendedExplosionAttribute ExtendedExplosionAttribute
x = do
  ExplosionAttribute -> BitPut ()
putExplosionAttribute (ExtendedExplosionAttribute -> ExplosionAttribute
extendedExplosionAttributeExplosion ExtendedExplosionAttribute
x)
  FlaggedIntAttribute -> BitPut ()
putFlaggedIntAttribute (ExtendedExplosionAttribute -> FlaggedIntAttribute
extendedExplosionAttributeUnknown ExtendedExplosionAttribute
x)