relativeZoned :: ZonedTime -- ^ The later time span.
              -> ZonedTime -- ^ The earlier time span.
              -> Bool      -- ^ Display 'in/ago'?
              -> String    -- ^ Example: '3 seconds ago', 'in three days'.
relativeZoned t1 t2 =
  relative (zonedTimeToUTC t1) (zonedTimeToUTC t2)
relativeZoned :: ZonedTime -- ^ The later time span.
              -> ZonedTime -- ^ The earlier time span.
              -> Bool      -- ^ Display 'in/ago'?
              -> String
relativeZoned t1 t2 =
  relative (zonedTimeToUTC t1) (zonedTimeToUTC t2)
relativeZoned t1 t2 =
  relative (zonedTimeToUTC t1) (zonedTimeToUTC t2)