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