module Octane.Type.Word64
( Word64(..)
, fromWord64
, toWord64
) where
import Data.Function ((&))
import qualified Data.Aeson as Aeson
import qualified Data.Default.Class as Default
import qualified Data.OverloadedRecords.TH as OverloadedRecords
import qualified Data.Word as Word
import qualified Text.Printf as Printf
newtype Word64 = Word64
{ word64Unpack :: Word.Word64
} deriving (Eq, Num, Ord)
$(OverloadedRecords.overloadedRecord Default.def ''Word64)
instance Show Word64 where
show word64 = Printf.printf "0x%016x" (#unpack word64)
instance Aeson.ToJSON Word64 where
toJSON word64 = word64 & #unpack & Aeson.toJSON
fromWord64
:: (Integral a)
=> Word64 -> a
fromWord64 word64 = fromIntegral (#unpack word64)
toWord64
:: (Integral a)
=> a -> Word64
toWord64 value = Word64 (fromIntegral value)