module Rattletrap.Encode.IntAttribute ( putIntAttribute ) where import Rattletrap.Encode.Int32le import Rattletrap.Type.IntAttribute import qualified Data.Binary.Bits.Put as BinaryBits putIntAttribute :: IntAttribute -> BinaryBits.BitPut () putIntAttribute :: IntAttribute -> BitPut () putIntAttribute IntAttribute intAttribute = Int32le -> BitPut () putInt32Bits (IntAttribute -> Int32le intAttributeValue IntAttribute intAttribute)