module Rattletrap.Encode.StringAttribute ( putStringAttribute ) where import Rattletrap.Encode.Str import Rattletrap.Type.StringAttribute import qualified Data.Binary.Bits.Put as BinaryBits putStringAttribute :: StringAttribute -> BinaryBits.BitPut () putStringAttribute :: StringAttribute -> BitPut () putStringAttribute StringAttribute stringAttribute = Str -> BitPut () putTextBits (StringAttribute -> Str stringAttributeValue StringAttribute stringAttribute)