Une MAJ de sécurité est nécessaire sur notre version actuelle. Elle sera effectuée lundi 02/08 entre 12h30 et 13h. L'interruption de service devrait durer quelques minutes (probablement moins de 5 minutes).

Commit 8f503d37 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Use Lwt.async for data policy process

parent 28fc6626
......@@ -2359,7 +2359,7 @@ let process_election_for_data_policy (action, uuid, next_t, name, contact) =
) else return_unit
)
let _ =
let () =
let open Ocsigen_messages in
let rec loop () =
let () = console (fun () -> "Data policy process started") in
......@@ -2368,4 +2368,4 @@ let _ =
let () = console (fun () -> "Data policy process completed") in
let%lwt () = Lwt_unix.sleep 3600. in
loop ()
in loop ()
in Lwt.async loop
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment