module Rattletrap.Encode.LocationAttribute ( putLocationAttribute ) where import Rattletrap.Encode.Vector import Rattletrap.Type.LocationAttribute import qualified Data.Binary.Bits.Put as BinaryBits putLocationAttribute :: LocationAttribute -> BinaryBits.BitPut () putLocationAttribute :: LocationAttribute -> BitPut () putLocationAttribute LocationAttribute locationAttribute = Vector -> BitPut () putVector (LocationAttribute -> Vector locationAttributeValue LocationAttribute locationAttribute)