octane-0.3.0: library/Octane/Type/Primitive/Float32LE.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Octane.Type.Primitive.Float32LE (Float32LE(..)) where

import Octane.Core

-- | A 32-bit little-endian float.
newtype Float32LE = Float32LE
    { getFloat32LE :: Float
    } deriving (Eq, Generic, NFData, Show)

instance Binary Float32LE where
    get = do
        float <- getFloat32le
        float & Float32LE & return

    put (Float32LE float) = do
        float & putFloat32le