gistfile1.txt

open Lwt.Infix

let mysleep delay : unit Lwt.t =
  print_endline "Sleeping";
  Lwt_unix.sleep delay >|=
  fun () -> print_endline "Waked up???"

let main () : unit Lwt.t =
  mysleep 3.

let () =
  Lwt_main.run (main ())

I want to change the above code to the following, mysleep () returns unit instead of the original unit Lwt.t but the following code doesn't work(doesn't sleep)...what should I do?

open Lwt.Infix

let mysleep delay : unit =
print_endline "Sleeping";
(Lwt_unix.sleep delay >|=
fun () -> print_endline "Waked up???") |> ignore

let main () : unit Lwt.t =
mysleep 3.;
Lwt.return_unit

let () =
Lwt_main.run (main ())