From 118da141a2e3510e94956b0018ec06bb8d3717d9 Mon Sep 17 00:00:00 2001 From: orbifx Date: Thu, 30 Sep 2021 11:36:42 +0100 Subject: [PATCH] Renamed peers.txt to peers.conf & restored status message layout --- http/http.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/http/http.ml b/http/http.ml index c1cfb8b..a36167a 100644 --- a/http/http.ml +++ b/http/http.ml @@ -112,7 +112,8 @@ let pull_msgs url _authors _topics = match http_apply response url with let msgs = if cardinal msgs > 3 then remove (max_elt msgs) msgs else msgs in add (v,m) msgs | _ -> msgs) in - MsgSet.iter (fun (t,m) -> print_endline (m ^ "\n\t\t -- " ^ Ptime.to_rfc3339 t)) msgs + print_endline ("\n" ^ Uri.to_string url); + MsgSet.iter (fun (t,m) -> print_endline (Ptime.to_rfc3339 t ^ "\t" ^ m)) msgs let pull_fn url = match Uri.of_string url with | x when x = Uri.empty -> (fun _ _ -> ()) @@ -120,7 +121,7 @@ let pull_fn url = match Uri.of_string url with | x when Uri.scheme x = Some "msg+https"-> pull_msgs Uri.(with_scheme x (Some "https")) | x -> pull_index x -let pull_list auths topics = match open_in "peers.txt" with +let pull_list auths topics = match open_in "peers.conf" with | exception (Sys_error msg) -> prerr_endline msg | file -> let rec read () =