Source

core hello world / hello_server.ml

Diff from to

File hello_server.ml

    query whose implementation blocks.
 *)
 let hello_impl () hello =
-  Log.Global.info "received hello query (%s)" hello;
+  Log.Global.debug "received hello query (%s)" hello;
   Clock.after (sec 0.1)
   >>= fun () -> return (hello ^ " World!")