-- | Converts a local time to UTC time, and then converts it back to a
-- zoned time where the zone is UTC.  Some financial institutions
-- report times using various local time zones; this converts them to
-- UTC.
toUTC :: Time.ZonedTime -> Time.ZonedTime
toUTC = Time.utcToZonedTime Time.utc
  . Time.zonedTimeToUTC
toUTC :: Time.ZonedTime -> Time.ZonedTime
toUTC = Time.utcToZonedTime Time.utc
  . Time.zonedTimeToUTC
toUTC = Time.utcToZonedTime Time.utc
  . Time.zonedTimeToUTC