Offset :: Integer -> Integer
normalizeOffset = pivot . flip mod 1440
  where pivot n = if -720 < n && n <= 720 then n else n - signum n * 1440

-- |
-- Promote a time zone offset to the type level.
promoteO
normalizeOffset :: Integer -> Integer
normalizeOffset = pivot . flip mod 1440
  where pivot n = if -720 < n && n <= 720 then n else n - signum n * 1440

-- |
-- Promote a time zone offset to the type level.
normalizeOffset = pivot . flip mod 1440
  where pivot n = if -720 < n && n <= 720 then n else n - signum n * 1440

-- |
-- Promote a time zone offset to the type level.