Hi, I wrote this simple program, and it works as expected: open Base open Lwt_io let get_random_hanzi () = let buf = Buffer.create 1 in let chr = Random.int_incl 0x4e00 0x9fff |> Uchar.of_scalar_exn in Caml.Buffer.add_utf_8_uchar buf chr; Buffer.contents buf let () = Lwt_main.run begin …

I’m not sure it’s nicer, but you can use expr;%lwt in place of let%lwt () = expr in. For example: ... writeln "Do you know these random Chinese characters?";%lwt writeln "Test your knowledge!\n";%lwt for%lwt _i = 1 to 10 do (* Code goes here *) done;%lwt ... which is a little closer to what you…

Doing a bunch of sequential I/O with Lwt

Learning

feihong May 8, 2018, 9:39pm 3

I personally think it looks less noisy that way, so thank you!

Topic		Replies	Views
`Lwt.asyc` thread not executing with blocking read Learning lwt , mirageos	7	728	August 17, 2022
Lwt alternative to async.pipe Ecosystem lwt , cohttp , async	3	1003	February 13, 2021
Async or Lwt. Multiple source, single reader Learning lwt , async	11	1003	May 26, 2023
Best practice on mixing Async and Lwt? Ecosystem lwt , async	15	2621	November 23, 2019
Migrating an Async project to Lwt, a short primer Learning lwt , async	1	2396	June 3, 2020

Doing a bunch of sequential I/O with Lwt

Related topics