module Rattletrap.Encode.Int64Attribute
  ( putInt64Attribute
  )
where

import Rattletrap.Encode.Int64le
import Rattletrap.Type.Int64Attribute

import qualified Data.Binary.Bits.Put as BinaryBits

putInt64Attribute :: Int64Attribute -> BinaryBits.BitPut ()
putInt64Attribute :: Int64Attribute -> BitPut ()
putInt64Attribute Int64Attribute
int64Attribute =
  Int64le -> BitPut ()
putInt64Bits (Int64Attribute -> Int64le
int64AttributeValue Int64Attribute
int64Attribute)