buildTimeOfDay :: TimeOfDay -> Builder
buildTimeOfDay (h, m, s, us) =
  dec2 h <> singleton ':' <> dec2 m <> singleton ':' <> dec2 s <> singleton '.' <>
  decimal us
buildTimeOfDay :: TimeOfDay -> Builder
buildTimeOfDay (h, m, s, us) =
  dec2 h <> singleton ':' <> dec2 m <> singleton ':' <> dec2 s <> singleton '.' <>
  decimal us
buildTimeOfDay (h, m, s, us) =
  dec2 h <> singleton ':' <> dec2 m <> singleton ':' <> dec2 s <> singleton '.' <>
  decimal us