Source

core hello world / directory.ml

Diff from to

directory.ml

 
 let dump t =
   Hashtbl.to_alist t
-  |! List.map ~f:(fun (topic,tpub) ->
+  |> List.map ~f:(fun (topic,tpub) ->
     let num_subscribers = Topic_pub.num_subscribers tpub in
     let message = Topic_pub.last_message tpub in
     {Dump. topic; num_subscribers; message })