rattletrap-4.0.0: library/Rattletrap/Encode/ExtendedExplosionAttribute.hs

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 x = do
  putExplosionAttribute (extendedExplosionAttributeExplosion x)
  putFlaggedIntAttribute (extendedExplosionAttributeUnknown x)