我正在按照教程解释如何在OCaml中使用lwt和Cohttp来制作简单的Web服务器。 我有一个_tags文件，其中包含以下内容： true: package(lwt), package(cohttp), package(cohttp.lwt)
并有webserver.ml： open Lwt
open Cohttp
open Cohttp_lwt_unix
let make_serv
我正在试验js_of_ocaml和node.js.如您所知，node.js大量使用回调来实现异步请求，而不引入显式线程。 在OCaml中，我们有一个非常好的线程库Lwt，它带有非常有用的语法扩展。我编写了一个绑定到某个节点库（AWS S3客户端）的原型，并添加了一个lwt-ish图层来隐藏回调。 open Lwt.Infix
open Printf
open Js
let require_
我试图写一个终端应用程序与Lwt。 基本上只要我的应用程序正在运行，我需要观看终端输入Lwt_io.read_line。 在我的程序运行时，是否有比下面（伪代码）更好的方式来实现某种循环？ while true do
let _ = ignore (Lwt_main.run my_application)
done
我不确定这是否正确。每当my_application中的所有线程都
可以使用Lwt.return作为递归函数中的最终调用吗？ 我有一个编译好但功能不正常的函数，它看起来像下面的函数f。请假定在这个例子中，作为g提供的任何函数都没有问题，我基本上只是想知道是否可以使用以下形式的函数或者是否有更好/更简单（并且符合Lwt）做法如下： let rec f (x : string list) (g : string -> unit Lwt.t) =
match
这是一个使用Unix模块与子流程交互的简单程序。我刚刚推出cat shell命令，它发送一个字符串，并读回： #load "unix.cma";; (* Needed if you are in the toplevel *)
let() =
let sin, sout, serr = Unix.open_process_full "cat" [||] in
output_
我试图编写一个函数来尝试评估函数，但在特定的超时后停止。 我试图使用Deferred.any，它返回一个延迟，当一个基础延期满足时，该延迟被满足。 type 'a output = OK of 'a | Exn of exn
let fun_test msg f eq (inp,ans) =
let outp = wait_for (Deferred.any
[ retur
我正在MirageOS（Unix）之上开发Ocaml的Web服务，此刻我在Lwt.async()上遇到了一些问题。 LWT中文档指出以下几点： val async : (unit -> 'a t) -> unit 异步˚F启动一个线程，而不 等待结果。如果失败（现在或稍后），则给予Lwt。async_exception_hook的例外是 。 如果你想启动一个可能会失败并且不在乎它的返回值是什么的线