let lwt_unix_readlink l =
    let open Lwt in
    Lwt_preemptive.detach Unix.readlink l