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)