tweak intro

1 files changed, 9 insertions, 4 deletions

diff --git a/Remote.hs b/Remote.hs
index bb582778f..ac9da0536 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -129,14 +129,19 @@ prettyPrintUUIDs desc uuids = do
 			, ("here", toJSON $ hereu == u)
 			]
 
-{- List of remote names and/or descriptions, for human display. 
- - Omits the current repisitory. -}
+{- List of remote names and/or descriptions, for human display.  -}
 prettyListUUIDs :: [UUID] -> Annex [String]
 prettyListUUIDs uuids = do
 	hereu <- getUUID
 	m <- uuidDescriptions
-	return $ map (\u -> M.findWithDefault "" u m) $ 
-		filter (/= hereu) uuids
+	return $ map (\u -> prettify m hereu u) uuids
+	where
+		finddescription m u = M.findWithDefault "" u m
+		prettify m hereu u
+			| u == hereu = addName n "here"
+			| otherwise = n
+			where
+				n = finddescription m u
 
 {- Filters a list of remotes to ones that have the listed uuids. -}
 remotesWithUUID :: [Remote] -> [UUID] -> [Remote]