module Rattletrap.Encode.EnumAttribute ( putEnumAttribute ) where import Rattletrap.Encode.Common import Rattletrap.Type.EnumAttribute import qualified Data.Binary.Bits.Put as BinaryBits putEnumAttribute :: EnumAttribute -> BinaryBits.BitPut () putEnumAttribute :: EnumAttribute -> BitPut () putEnumAttribute EnumAttribute enumAttribute = Int -> Word16 -> BitPut () forall a. Bits a => Int -> a -> BitPut () putBitsLE Int 11 (EnumAttribute -> Word16 enumAttributeValue EnumAttribute enumAttribute)