Update to Ocamlnet v4.

Also update dependencies to add camlp4 and ounit.
This commit is contained in:
Fabien Freling 2015-07-29 18:00:58 +00:00
parent e7e25526be
commit 187b82fd41
3 changed files with 4 additions and 11 deletions

View file

@ -1,3 +1,3 @@
true: package(ssl), package(netclient), package(netstring), package(equeue-ssl) true: package(netclient), package(netstring)
<test.*>: package(oUnit) <test.*>: package(oUnit)
<irc.*>: package(irc-client.lwt) <irc.*>: package(irc-client.lwt)

View file

@ -13,6 +13,8 @@ install: [make "install"]
remove: ["ocamlfind" "remove" "cheesebot"] remove: ["ocamlfind" "remove" "cheesebot"]
depends: [ depends: [
"ocamlfind" {build} "ocamlfind" {build}
"camlp4"
"ounit"
"lwt" "lwt"
"conf-gnutls" "conf-gnutls"
"ocamlnet" "ocamlnet"

View file

@ -1,17 +1,8 @@
open Printf open Printf
open Http_client open Nethttp_client
open Https_client
open Nethtml open Nethtml
open Netencoding;; open Netencoding;;
Ssl.init();
Convenience.configure_pipeline
(fun p ->
let ctx = Ssl.create_context Ssl.TLSv1 Ssl.Client_context in
let tct = https_transport_channel_type ctx in
p # configure_transport https_cb_id tct
)
let extract_string_value document = let extract_string_value document =
match document with match document with