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)