module Octane.Type.Int8
( Int8(..)
, fromInt8
, toInt8
) where
import Data.Function ((&))
import qualified Data.Aeson as Aeson
import qualified Data.Default.Class as Default
import qualified Data.Int as Int
import qualified Data.OverloadedRecords.TH as OverloadedRecords
newtype Int8 = Int8
{ int8Unpack :: Int.Int8
} deriving (Eq, Num, Ord)
$(OverloadedRecords.overloadedRecord Default.def ''Int8)
instance Show Int8 where
show int8 = show (#unpack int8)
instance Aeson.ToJSON Int8 where
toJSON int8 = int8 & #unpack & Aeson.toJSON
fromInt8
:: (Integral a)
=> Int8 -> a
fromInt8 int8 = fromIntegral (#unpack int8)
toInt8
:: (Integral a)
=> a -> Int8
toInt8 value = Int8 (fromIntegral value)