Fix README code

romanchechyotkin · Nov 4, 2024 · efd37d5 · efd37d5
1 parent 4807153
commit efd37d5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -46,7 +46,7 @@ let main =
   in
 
   (* Publishes 'hello' message to three subjects. *)
-  Lwt_list.iter_p
+  Lwt_list.iter_s
     (fun subject -> Nats_client_lwt.pub client ~subject "hello")
     [ "greet.sue"; "greet.bob"; "greet.pam" ];%lwt
 
@@ -66,6 +66,12 @@ $ docker start -a nats-server
 $ dune exec ./examples/natsbyexample/publish_subscribe.exe
 ```
 
+```
+'hello' received on greet.sue       
+'hello' received on greet.bob
+'hello' received on greet.pam
+```
+
 ## References
 
 - [NATS documentation](https://docs.nats.io/)

diff --git a/examples/natsbyexample/publish_subscribe.ml b/examples/natsbyexample/publish_subscribe.ml
@@ -18,7 +18,7 @@ let main =
   in
 
   (* Publishes 'hello' message to three subjects. *)
-  Lwt_list.iter_p
+  Lwt_list.iter_s
     (fun subject -> Nats_client_lwt.pub client ~subject "hello")
     [ "greet.sue"; "greet.bob"; "greet.pam" ];%lwt