1 files changed, 1 insertions, 1 deletions
diff --git a/Remote.hs b/Remote.hs
index 01d6da3cc..7affb93af 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -150,7 +150,7 @@ prettyListUUIDs :: [UUID] -> Annex [String]
 prettyListUUIDs uuids = do
 	hereu <- getUUID
 	m <- uuidDescriptions
-	return $ map (\u -> prettify m hereu u) uuids
+	return $ map (prettify m hereu) uuids
   where
 	finddescription m u = M.findWithDefault "" u m
 	prettify m hereu u