module Rattletrap.Encode.ExplosionAttribute ( putExplosionAttribute ) where import Rattletrap.Encode.Int32le import Rattletrap.Encode.Vector import Rattletrap.Type.ExplosionAttribute import qualified Data.Binary.Bits.Put as BinaryBits putExplosionAttribute :: ExplosionAttribute -> BinaryBits.BitPut () putExplosionAttribute :: ExplosionAttribute -> BitPut () putExplosionAttribute ExplosionAttribute explosionAttribute = do Bool -> BitPut () BinaryBits.putBool Bool False Int32le -> BitPut () putInt32Bits (ExplosionAttribute -> Int32le explosionAttributeActorId ExplosionAttribute explosionAttribute) Vector -> BitPut () putVector (ExplosionAttribute -> Vector explosionAttributeLocation ExplosionAttribute explosionAttribute)