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)