octane-0.1.0: library/Octane/Types/Float32LE.hs

module Octane.Types.Float32LE (Float32LE(..)) where

import Octane.Core

newtype Float32LE = NewFloat32LE
    { getFloat32LE :: Float
    } deriving (Show)

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

    put (NewFloat32LE float) = do
        float & putFloat32le