utctDayTime

utctDayTime :: UTCTime -> DiffTime
time Data.Time.Clock
the time from midnight, 0 <= t < 86401s (because of leap-seconds)