Preliminary support for cross-domain references

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@42 eb64cd80-c68d-6f47-b6a3-0ada418499da
2022-12-15 21:25:18 +00:00
parent 3e971f40dc
commit 4dff69cb4a
7 changed files with 88 additions and 49 deletions
--- a/cli/peers.ml
+++ b/cli/peers.ml
@@ -9,7 +9,7 @@ type filter_t = { authors: Logarion.Person.Set.t; topics: Logarion.String_set.t
 let print_peer () peer =
 	let open Logarion.Peers in
 	Printf.printf "%s" peer.path;
-	List.iter (Printf.printf "\t%s\n") peer.locations
+	List.iter (Printf.printf "\t%s\n") peer.pack.info.locations

 let remove_repo id =
 	let repopath = Filename.concat Logarion.Peers.text_dir id in