module Rattletrap.Encode.PlayerHistoryKeyAttribute
  ( putPlayerHistoryKeyAttribute
  )
where

import Rattletrap.Encode.Common
import Rattletrap.Type.PlayerHistoryKeyAttribute

import qualified Data.Binary.Bits.Put as BinaryBits

putPlayerHistoryKeyAttribute
  :: PlayerHistoryKeyAttribute -> BinaryBits.BitPut ()
putPlayerHistoryKeyAttribute :: PlayerHistoryKeyAttribute -> BitPut ()
putPlayerHistoryKeyAttribute = Int -> Word16 -> BitPut ()
forall a. Bits a => Int -> a -> BitPut ()
putBitsLE Int
14 (Word16 -> BitPut ())
-> (PlayerHistoryKeyAttribute -> Word16)
-> PlayerHistoryKeyAttribute
-> BitPut ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PlayerHistoryKeyAttribute -> Word16
playerHistoryKeyAttributeUnknown