module Rattletrap.Encode.AttributeMapping
  ( putAttributeMapping
  )
where

import Rattletrap.Encode.Word32le
import Rattletrap.Type.AttributeMapping

import qualified Data.Binary as Binary

putAttributeMapping :: AttributeMapping -> Binary.Put
putAttributeMapping :: AttributeMapping -> Put
putAttributeMapping AttributeMapping
attributeMapping = do
  Word32le -> Put
putWord32 (AttributeMapping -> Word32le
attributeMappingObjectId AttributeMapping
attributeMapping)
  Word32le -> Put
putWord32 (AttributeMapping -> Word32le
attributeMappingStreamId AttributeMapping
attributeMapping)