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)