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)
|
||||
<irc.*>: package(irc-client.lwt)
|
||||
|
|
|
@ -13,6 +13,8 @@ install: [make "install"]
|
|||
remove: ["ocamlfind" "remove" "cheesebot"]
|
||||
depends: [
|
||||
"ocamlfind" {build}
|
||||
"camlp4"
|
||||
"ounit"
|
||||
"lwt"
|
||||
"conf-gnutls"
|
||||
"ocamlnet"
|
||||
|
|
|
@ -1,17 +1,8 @@
|
|||
open Printf
|
||||
open Http_client
|
||||
open Https_client
|
||||
open Nethttp_client
|
||||
open Nethtml
|
||||
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 =
|
||||
match document with
|
||||
|
|
Loading…
Reference in a new issue