module Rattletrap.Encode.FloatAttribute ( putFloatAttribute ) where import Rattletrap.Encode.Float32le import Rattletrap.Type.FloatAttribute import qualified Data.Binary.Bits.Put as BinaryBits putFloatAttribute :: FloatAttribute -> BinaryBits.BitPut () putFloatAttribute :: FloatAttribute -> BitPut () putFloatAttribute FloatAttribute floatAttribute = Float32le -> BitPut () putFloat32Bits (FloatAttribute -> Float32le floatAttributeValue FloatAttribute floatAttribute)