Add debugging

lib/hex/http.ex

@@ -17,6 +17,10 @@ defmodule Hex.HTTP do
 
   @impl :mix_hex_http
   def request(method, url, headers, body, opts \\ []) do
+    if Mix.debug?() do
+      Hex.Shell.debug("Hex.HTTP.request(#{inspect(method)}, #{inspect(url)})")
+    end
+
     headers =
       headers
       |> build_headers()
@@ -36,7 +40,7 @@ defmodule Hex.HTTP do
       redirect(request, http_opts, @request_redirects, fn request, http_opts ->
         timeout(request, http_opts, timeout, fn request, http_opts ->
           :httpc.request(method, request, http_opts, opts, profile)
-          |> handle_response()
+          |> handle_response(method, url)
         end)
       end)
     end)
@@ -176,14 +180,22 @@ defmodule Hex.HTTP do
     end
   end
 
-  defp handle_response({:ok, {{_version, code, _reason}, headers, body}}) do
+  defp handle_response({:ok, {{_version, code, _reason}, headers, body}}, method, url) do
+    if Mix.debug?() do
+      Hex.Shell.debug("Hex.HTTP.request(#{inspect(method)}, #{inspect(url)}) => #{code}")
+    end
+
     headers = Map.new(headers, &decode_header/1)
 
     handle_hex_message(headers["x-hex-message"])
     {:ok, code, headers, unzip(body, headers)}
   end
 
-  defp handle_response({:error, term}) do
+  defp handle_response({:error, term}, method, url) do
+    if Mix.debug?() do
+      Hex.Shell.debug("Hex.HTTP.request(#{inspect(method)}, #{inspect(url)}) => #{inspect(term)}")
+    end
+
     {:error, term}
   end
 

lib/hex/registry/server.ex

@@ -135,7 +135,7 @@ defmodule Hex.Registry.Server do
       |> Enum.reject(&(&1 in state.fetched))
       |> Enum.reject(&(&1 in state.pending))
 
-    purge_repo_from_cache(packages, state)
+    purge_changed_repos_from_cache(packages, state)
 
     if Hex.State.fetch!(:offline) do
       prefetch_offline(packages, state)
@@ -271,7 +271,7 @@ defmodule Hex.Registry.Server do
     :ok = :ets.tab2file(tid, String.to_charlist(path))
   end
 
-  defp purge_repo_from_cache(packages, %{ets: ets}) do
+  defp purge_changed_repos_from_cache(packages, %{ets: ets}) do
     Enum.each(packages, fn {repo, _package} ->
       repo = repo || "hexpm"
       config = Hex.Repo.get_repo(repo)
@@ -409,6 +409,10 @@ defmodule Hex.Registry.Server do
       "Failed to fetch record for #{Hex.Utils.package_name(repo, package)} from registry#{cached_message}"
     )
 
+    if Mix.debug?() do
+      Hex.Shell.error("Error result: #{inspect(result)}")
+    end
+
     if missing_status?(result) do
       Hex.Shell.error(
         "This could be because the package does not exist, it was spelled " <>

lib/hex/scm.ex

@@ -11,8 +11,11 @@ defmodule Hex.SCM do
     true
   end
 
-  def format(_opts) do
-    "Hex package"
+  def format(opts) do
+    case opts[:repo] do
+      "hexpm" -> "Hex package"
+      repo -> "Hex package (from #{repo})"
+    end
   end
 
   def format_lock(opts) do