module Octane.Type.Float32
( Float32(..)
) where
import Data.Function ((&))
import qualified Data.Aeson as Aeson
import qualified Data.Default.Class as Default
import qualified Data.OverloadedRecords.TH as OverloadedRecords
newtype Float32 = Float32
{ float32Unpack :: Float
} deriving (Eq, Fractional, Num, Ord)
$(OverloadedRecords.overloadedRecord Default.def ''Float32)
instance Show Float32 where
show float32 = show (#unpack float32)
instance Aeson.ToJSON Float32 where
toJSON float32 = float32 & #unpack & Aeson.toJSON