Data.Time.Shrinkers

day

diffTime

uTCTime