module Rattletrap.Decode.FloatAttribute ( decodeFloatAttributeBits ) where import Rattletrap.Decode.Common import Rattletrap.Decode.Float32le import Rattletrap.Type.FloatAttribute decodeFloatAttributeBits :: DecodeBits FloatAttribute decodeFloatAttributeBits :: DecodeBits FloatAttribute decodeFloatAttributeBits = Float32le -> FloatAttribute FloatAttribute (Float32le -> FloatAttribute) -> BitGet Float32le -> DecodeBits FloatAttribute forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b <$> BitGet Float32le decodeFloat32leBits