> fromSeconds' 100 :: DiffTime 100s > fromSeconds' 100 ^+^ fromSeconds' 100 ^* 4 500s > fromSeconds' 100 ^-^ fromSeconds' 100 ^/ 4 75s
> let d = fromSeconds' 2 :: NominalDiffTime > d 2s > d ^/ 3 0.666667sSee also: UTCTime.
picosecondsToDiffTime a = microseconds # quot (a + signum a * 500000) 1000000
secondsToDiffTime = fromSeconds