shrink    = (Data.Time.ModifiedJulianDay <$>) . shrink . Data.Time.toModifiedJulianDay
shrink    = (Data.Time.ModifiedJulianDay <$>) . shrink . Data.Time.toModifiedJulianDay
shrink    = (Data.Time.ModifiedJulianDay <$>) . shrink . Data.Time.toModifiedJulianDay