Remove moved method

This commit is contained in:
2025-11-23 14:20:01 -06:00
parent eef4f22a62
commit 22a85a9a48

View File

@@ -29,33 +29,6 @@
#_(def component-specs (build-registry component-specs-defs)) #_(def component-specs (build-registry component-specs-defs))
;; We should move this to a list of safe-fns that extend the below inherently. That way we don't bloat this file.
(defn make-listeners [domains-or-json]
(let [domains (if (string? domains-or-json)
(js->clj (js/JSON.parse domains-or-json))
domains-or-json)]
(vec
(mapcat
(fn [domain]
(let [clean-name (clojure.string/replace domain #"\." "-")
secret-name (str clean-name "-tls")]
[{:name (str "https-root-" clean-name)
:port 443
:protocol "HTTPS"
:hostname domain
:tls {:mode "Terminate"
:certificateRefs [{:name secret-name}]}}
{:name (str "https-wild-" clean-name)
:port 443
:protocol "HTTPS"
:hostname (str "*." domain)
:tls {:mode "Terminate"
:certificateRefs [{:name secret-name}]}}]))
domains))))
(defn safe-parse-int [s] (defn safe-parse-int [s]
(let [n (js/parseInt s 10)] (let [n (js/parseInt s 10)]
(if (js/isNaN n) nil n))) (if (js/isNaN n) nil n)))