Changeset 42 in code for trunk/lib/peers.ml

Timestamp:

Dec 15, 2022, 9:25:18 PM (2 years ago)

Author:

fox

Message:

Preliminary support for cross-domain references

File:

• trunk/lib/peers.ml (modified) (2 diffs)

trunk/lib/peers.ml

@@ -1 +1 @@
 let text_dir = Filename.concat (File_store.txtdir ()) "peers"
 
-type t = { path: string; locations: string list }
+type t = { path: string; pack: Header_pack.t }
 
 let fold fn init = match Sys.readdir text_dir with
@@ -14 +14 @@
                         | true -> match Header_pack.of_string (File_store.to_string pack_path) with
                                 | Error s -> Printf.eprintf "%s %s\n" s pack_path; init
-                                | Ok p -> fn init { path; locations = Header_pack.(p.info.locations) }
+                                | Ok pack -> fn init { path; pack }
                         end else init
                 in