module Rattletrap.Encode.ClassMapping
  ( putClassMapping
  )
where

import Rattletrap.Encode.Str
import Rattletrap.Encode.Word32le
import Rattletrap.Type.ClassMapping

import qualified Data.Binary as Binary

putClassMapping :: ClassMapping -> Binary.Put
putClassMapping :: ClassMapping -> Put
putClassMapping ClassMapping
classMapping = do
  Str -> Put
putText (ClassMapping -> Str
classMappingName ClassMapping
classMapping)
  Word32le -> Put
putWord32 (ClassMapping -> Word32le
classMappingStreamId ClassMapping
classMapping)