Date.hs

getDateFromUser :: IO (Either UserError Day)
getDateFromUser = do
    Prelude.putStrLn "Пожалуйста, укажите дату для прогноза в формате ГГГГ-ММ-ДД:"
    currentTime <- getCurrentTime
    date <- Prelude.getLine
    let retrievedDate = utctDay currentTime
        dayFromUser   = parseTimeM True defaultTimeLocale "%Y-%-m-%-d" date :: Maybe Day
    case dayFromUser of
        Nothing -> здесь беда, потому что пользователь ввёл какую-то гадость
        Just validDay -> do
            let differenceInDays = diffDays validDay retrievedDate
            if differenceInDays >= 0 && differenceInDays <= 16
                then return $ Right validDay
                else return $ Left InvalidDate