dateFromDateInt :: DateInt -- ^ DateInt input
                -> Date.Day -- ^ Haskell standard Day equivalent value.
dateFromDateInt di = let (y, m, d) = dateComponentsFromInt (fromDateInt di)
                     in Date.fromGregorian (fromIntegral y) m d
dateFromDateInt :: DateInt -- ^ DateInt input
                -> Date.Day
dateFromDateInt di = let (y, m, d) = dateComponentsFromInt (fromDateInt di)
                     in Date.fromGregorian (fromIntegral y) m d
dateFromDateInt di = let (y, m, d) = dateComponentsFromInt (fromDateInt di)
                     in Date.fromGregorian (fromIntegral y) m d