From abc0d543d028a197893d481a4657f0ec783d6c49 Mon Sep 17 00:00:00 2001
From: Jordan Bradford <36420801+jrdnbradford@users.noreply.github.com>
Date: Thu, 17 Oct 2024 15:43:19 -0400
Subject: [PATCH] Allow formerly broken mirror (#82)

---
 R/gutenberg_mirrors.R | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/R/gutenberg_mirrors.R b/R/gutenberg_mirrors.R
index bc9e704..40729f0 100644
--- a/R/gutenberg_mirrors.R
+++ b/R/gutenberg_mirrors.R
@@ -32,11 +32,6 @@ gutenberg_get_mirror <- function(verbose = TRUE) {
 
   # parse and leave out the path
   parsed <- urltools::url_parse(mirror_full_url)
-  if (parsed$domain == "www.gutenberg.lib.md.us") {
-    # Broken mirror. PG has been contacted. For now, replace:
-    parsed$domain <- "aleph.gutenberg.org" # nocov
-  }
-
   mirror <- unclass(glue::glue_data(parsed, "{scheme}://{domain}"))
   maybe_message(verbose, "Using mirror {mirror}.")