我正在尝试编写这段代码:
open Lwt;;
open Cohttp;;
(* a simple function to access the content of the response *)
let content = function
| Some (_, body) -> Cohttp_lwt_unix.Body.string_of_body body
(* launch both requests in parallel *)
let t = Lwt_list.map_p Cohttp_lwt_unix.Client.get
(List.map Uri.of_string
[ "http://example.org/";
"http://example2.org/" ])
(* maps the result through the content function *)
let t2 = t >>= Lwt_list.map_p content
(* launch the event loop *)
let v = Lwt_main.run t2
但是,当我运行时
Ocamlbuild file.native
我得到了未绑定模块的错误。
这些模块是通过opam安装的,当我运行时
ocamlfind query lwt
/home/chris/.opam/system/lib/lwt
ocamlfind query cohttp
/home/chris/.opam/system/lib/cohttp
我该如何让Ocamlbuild找到这两个包?
我已经尝试过:
Ocamlbuild -pkgs cohttp,lwt file.native
但是,它没有起作用。它显示了可能是不正确的扩展名。我认为这不是问题所在。
如果有人能给我正确的代码来做这个,那将不胜感激。谢谢!