/usr/lib/hugs/packages/time/Data/Time/Clock/UTCDiff.hs is in libhugs-time-bundled 98.200609.21-5.4build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | {-# OPTIONS -Wall -Werror #-}
-- #hide
module Data.Time.Clock.UTCDiff where
import Data.Time.Clock.POSIX
import Data.Time.Clock.UTC
-- | addUTCTime a b = a + b
addUTCTime :: NominalDiffTime -> UTCTime -> UTCTime
addUTCTime x t = posixSecondsToUTCTime (x + (utcTimeToPOSIXSeconds t))
-- | diffUTCTime a b = a - b
diffUTCTime :: UTCTime -> UTCTime -> NominalDiffTime
diffUTCTime a b = (utcTimeToPOSIXSeconds a) - (utcTimeToPOSIXSeconds b)
|