module Rattletrap.Encode.StatEventAttribute ( putStatEventAttribute ) where import Rattletrap.Encode.Int32le import Rattletrap.Type.StatEventAttribute import qualified Data.Binary.Bits.Put as BinaryBits putStatEventAttribute :: StatEventAttribute -> BinaryBits.BitPut () putStatEventAttribute :: StatEventAttribute -> BitPut () putStatEventAttribute StatEventAttribute statEventAttribute = do Bool -> BitPut () BinaryBits.putBool (StatEventAttribute -> Bool statEventAttributeUnknown StatEventAttribute statEventAttribute) Int32le -> BitPut () putInt32Bits (StatEventAttribute -> Int32le statEventAttributeObjectId StatEventAttribute statEventAttribute)