module Rattletrap.Encode.IntAttribute
  ( putIntAttribute
  )
where

import Rattletrap.Encode.Int32le
import Rattletrap.Type.IntAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putIntAttribute :: IntAttribute -> BinaryBits.BitPut ()
putIntAttribute :: IntAttribute -> BitPut ()
putIntAttribute IntAttribute
intAttribute = Int32le -> BitPut ()
putInt32Bits (IntAttribute -> Int32le
intAttributeValue IntAttribute
intAttribute)