Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 3d1e773e authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Use Lwt_mutex.with_lock

parent d647e625
......@@ -419,11 +419,10 @@ let get_randomness =
)) in
let mutex = Lwt_mutex.create () in
fun () ->
Lwt_mutex.lock mutex >>
lwt prng = Lazy.force prng in
let r = Cryptokit.Random.(string prng 32) in
Lwt_mutex.unlock mutex;
return r
Lwt_mutex.with_lock mutex (fun () ->
lwt prng = Lazy.force prng in
return Cryptokit.Random.(string prng 32)
)
let () = Eliom_registration.String.register
~service:Services.get_randomness
......
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