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)