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)