{-# LANGUAGE TemplateHaskell #-}

module Rattletrap.Type.Float32le
  ( Float32le(..)
  )
where

import Rattletrap.Type.Common

newtype Float32le = Float32le
  { Float32le -> Float
float32leValue :: Float
  } deriving (Float32le -> Float32le -> Bool
(Float32le -> Float32le -> Bool)
-> (Float32le -> Float32le -> Bool) -> Eq Float32le
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Float32le -> Float32le -> Bool
$c/= :: Float32le -> Float32le -> Bool
== :: Float32le -> Float32le -> Bool
$c== :: Float32le -> Float32le -> Bool
Eq, Eq Float32le
Eq Float32le
-> (Float32le -> Float32le -> Ordering)
-> (Float32le -> Float32le -> Bool)
-> (Float32le -> Float32le -> Bool)
-> (Float32le -> Float32le -> Bool)
-> (Float32le -> Float32le -> Bool)
-> (Float32le -> Float32le -> Float32le)
-> (Float32le -> Float32le -> Float32le)
-> Ord Float32le
Float32le -> Float32le -> Bool
Float32le -> Float32le -> Ordering
Float32le -> Float32le -> Float32le
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: Float32le -> Float32le -> Float32le
$cmin :: Float32le -> Float32le -> Float32le
max :: Float32le -> Float32le -> Float32le
$cmax :: Float32le -> Float32le -> Float32le
>= :: Float32le -> Float32le -> Bool
$c>= :: Float32le -> Float32le -> Bool
> :: Float32le -> Float32le -> Bool
$c> :: Float32le -> Float32le -> Bool
<= :: Float32le -> Float32le -> Bool
$c<= :: Float32le -> Float32le -> Bool
< :: Float32le -> Float32le -> Bool
$c< :: Float32le -> Float32le -> Bool
compare :: Float32le -> Float32le -> Ordering
$ccompare :: Float32le -> Float32le -> Ordering
$cp1Ord :: Eq Float32le
Ord, Int -> Float32le -> ShowS
[Float32le] -> ShowS
Float32le -> String
(Int -> Float32le -> ShowS)
-> (Float32le -> String)
-> ([Float32le] -> ShowS)
-> Show Float32le
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Float32le] -> ShowS
$cshowList :: [Float32le] -> ShowS
show :: Float32le -> String
$cshow :: Float32le -> String
showsPrec :: Int -> Float32le -> ShowS
$cshowsPrec :: Int -> Float32le -> ShowS
Show)

$(deriveJson ''Float32le)