From 2fad57de4402669881698f215fc30610e2a3c2d3 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 29 May 2025 12:53:42 -0400
Subject: [PATCH] fix display of remote name in json

Also fixes it in the graphviz map in some cases, where there is no
description for a repository.

And in json, use the remote name, never the description, since the field
is "remote" which is intended to be the git remote name.

Sponsored-by: the NIH-funded NICEMAN (ReproNim TR&D3) project
---
 Command/Map.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Command/Map.hs b/Command/Map.hs
index 9ecceea2f0..d8f20c9ba1 100644
--- a/Command/Map.hs
+++ b/Command/Map.hs
@@ -108,7 +108,7 @@ hostname r
 basehostname :: Git.Repo -> String
 basehostname r = fromMaybe "" $ headMaybe $ splitc '.' $ hostname r
 
-{- A name to display for a repo. Uses the description 
+{- A description to display for a repo. Uses the description 
  - from uuid.log if available, or the remote name if not. -}
 repoName :: UUIDDescMap -> Git.Repo -> String
 repoName umap r
@@ -189,7 +189,9 @@ absRepo reference r
 	| otherwise = liftIO $ do
 		r' <- Git.Construct.fromPath =<< absPath (Git.repoPath r)
 		r'' <- safely $ flip Annex.eval Annex.gitRepo =<< Annex.new r'
-		return (fromMaybe r' r'')
+		return $ (fromMaybe r' r'')
+			{ Git.remoteName = Git.remoteName r
+			}
 
 {- Checks if two repos are the same. -}
 same :: Git.Repo -> Git.Repo -> Bool
@@ -314,7 +316,7 @@ outputJSONMap rs trustmap umap =
 		]
 	
 	mkremote r = JSON.object
-		[ "remote" .= packString (repoName umap r)
+		[ "remote" .= (packString <$> Git.remoteName r)
 		, "uuid" .= mkuuid (getUncachedUUID r)
 		, "url" .= packString (Git.repoLocation r)
 		]