     result-map))
 
 (defn- body->links
+  "Converts a url's body to links."
   [string options]
   (-> string
       (java.io.StringReader.)

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

(defn- fetch-link [url]
  (log/info :msg (format "Verifying link %s ..." url))
  (let [resp (try (let [head (client-head url)]
                    (if (> 400 (:status head) 199)

  (client/head url default-clj-http-options))

(defn- build-status
  "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)
