module System.CPUTime.Utils
(
cClockToInteger
, cTimeToInteger
, csuSecondsToInteger
) where
import Foreign.C.Types
cClockToInteger :: CClock -> Integer
cClockToInteger :: CClock -> Integer
cClockToInteger (CClock n :: Int64
n) = Int64 -> Integer
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int64
n
cTimeToInteger :: CTime -> Integer
cTimeToInteger :: CTime -> Integer
cTimeToInteger (CTime n :: Int64
n) = Int64 -> Integer
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int64
n
csuSecondsToInteger :: CSUSeconds -> Integer
csuSecondsToInteger :: CSUSeconds -> Integer
csuSecondsToInteger (CSUSeconds n :: Int64
n) = Int64 -> Integer
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int64
n