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)