Update to Ocamlnet v4.
Also update dependencies to add camlp4 and ounit.
This commit is contained in:
parent
e7e25526be
commit
187b82fd41
|
@ -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)
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue