X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_parser.ml;h=7f7b22349a907a75309a42eb315b11933306e6ae;hb=6de3b960806c544b580a15fd28309eea0c319771;hp=00f8a68182671827bbdb0356bdfe201e767f65b5;hpb=972609042f5b3fe52d53125392209252989862d6;p=helm.git

diff --git a/helm/DEVEL/ocaml-http/http_parser.ml b/helm/DEVEL/ocaml-http/http_parser.ml
index 00f8a6818..7f7b22349 100644
--- a/helm/DEVEL/ocaml-http/http_parser.ml
+++ b/helm/DEVEL/ocaml-http/http_parser.ml
@@ -194,5 +194,6 @@ let parse_request =
 
 let parse_request' ic =
   let (path, params) = parse_request ic in
-  new Http_request.request ~path ~params
+  let clisockaddr = Http_misc.peername_of_in_channel ic in
+  new Http_request.request ~path ~params ~clisockaddr