module Rattletrap.Encode.QWordAttribute ( putQWordAttribute ) where import Rattletrap.Encode.Word64le import Rattletrap.Type.QWordAttribute import qualified Data.Binary.Bits.Put as BinaryBits putQWordAttribute :: QWordAttribute -> BinaryBits.BitPut () putQWordAttribute :: QWordAttribute -> BitPut () putQWordAttribute QWordAttribute qWordAttribute = Word64le -> BitPut () putWord64Bits (QWordAttribute -> Word64le qWordAttributeValue QWordAttribute qWordAttribute)