   (client/head url default-clj-http-options))
 
 (defn- build-status
-  "status is an error string, a message for 3XX or a number"
+  "Returns status as an error string, a message for 3XX or a status number"
   [resp]
   (if (:error resp) (str "Request failed: " (:error resp))
       (if (> 400 (:status resp) 299)

            (remove invalid-link?))))))

(defn- valid-selector?
  [selector]
  (re-find #"^[\.#a-zA-Z0-9_-]+$" selector))

(defn- stream-links*
  "Sends 3 different sse events (message, results, end-message) depending on

                (clojure.string/join " , " (rest (:trace-redirects resp))))
        (:status resp))))

(defn- fetch-link
  "Fetches a url and returns a map to render its status in a table."
  [url]
  (log/info :msg (format "Verifying link %s ..." url))
  (let [resp (try (let [head (client-head url)]
                    (if (> 400 (:status head) 199)
