fromDateInt :: DateInt -- ^ DateInt input
            -> Int -- ^ The constructed integer carrying the date information.
fromDateInt (CreateDateInt di) = di
fromDateInt :: DateInt -- ^ DateInt input
            -> Int
fromDateInt (CreateDateInt di) = di
fromDateInt (CreateDateInt di) = di