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

-- Add seconds to UnixTime
(.+) :: (Integral a) => UnixTime -> a -> UnixTime
u .+ d = addUnixDiffTime u (secondsToUnixDiffTime d)
(.+) :: (Integral a) => UnixTime -> a -> UnixTime
u .+ d = addUnixDiffTime u (secondsToUnixDiffTime d)
u .+ d = addUnixDiffTime u (secondsToUnixDiffTime d)