{-# LANGUAGE Safe #-}moduleData.Time.Clock.Internal.UTCDiffwhereimportData.Time.Clock.Internal.NominalDiffTime importData.Time.Clock.Internal.UTCTime importData.Time.Clock.POSIX -- | addUTCTime a b = a + baddUTCTime ::NominalDiffTime ->UTCTime ->UTCTime addUTCTime :: NominalDiffTime -> UTCTime -> UTCTime
addUTCTime NominalDiffTime
x UTCTime
t =NominalDiffTime -> UTCTime
posixSecondsToUTCTime (NominalDiffTime
x NominalDiffTime -> NominalDiffTime -> NominalDiffTime
forall a. Num a => a -> a -> a
+(UTCTime -> NominalDiffTime
utcTimeToPOSIXSeconds UTCTime
t ))-- | diffUTCTime a b = a - bdiffUTCTime ::UTCTime ->UTCTime ->NominalDiffTime diffUTCTime :: UTCTime -> UTCTime -> NominalDiffTime
diffUTCTime UTCTime
a UTCTime
b =(UTCTime -> NominalDiffTime
utcTimeToPOSIXSeconds UTCTime
a )NominalDiffTime -> NominalDiffTime -> NominalDiffTime
forall a. Num a => a -> a -> a
-(UTCTime -> NominalDiffTime
utcTimeToPOSIXSeconds UTCTime
b )