----------------------------------------------------------------------

ctimeToIntegral :: (Integral a) => CTime -> a
ctimeToIntegral (CTime n) = fromIntegral n
ctimeToIntegral :: (Integral a) => CTime -> a
ctimeToIntegral (CTime n) = fromIntegral n
ctimeToIntegral (CTime n) = fromIntegral n