fix previous commit

Author: hhugo

src/extensions/accesscontrol.ml

@@ -54,7 +54,7 @@ let rec parse_condition = function
               badconfig "Bad ip/netmask [%s] in <ip> condition" s
         in
         (fun ri ->
-           let r = Ipaddr.mem prefix (Lazy.force ri.ri_remote_ip_parsed)
+           let r = Ipaddr.Prefix.mem (Lazy.force ri.ri_remote_ip_parsed) prefix
            in
            if r then
              Ocsigen_messages.debug2 (sprintf "--Access control (ip): %s matches %s" ri.ri_remote_ip s)
@@ -312,7 +312,7 @@ let parse_config parse_fun = function
 		request
 	      | original_ip::proxies ->
 		let last_proxy = List.last proxies in
-		let proxy_ip = fst (Ip_address.parse last_proxy) in
+		let proxy_ip = Ipaddr.of_string_exn last_proxy in
 		let equal_ip = proxy_ip = Lazy.force request.request_info.ri_remote_ip_parsed in
 		let need_equal_ip =
 		  match param with
@@ -328,7 +328,7 @@ let parse_config parse_fun = function
 		  { request with request_info =
 		      { request.request_info with
 			ri_remote_ip = original_ip;
-			ri_remote_ip_parsed = lazy (fst (Ip_address.parse original_ip));
+			ri_remote_ip_parsed = lazy (Ipaddr.of_string_exn original_ip);
 			ri_forward_ip = proxies; } }
 		else (* the announced ip of the proxy is not its real ip *)
 		  ( Ocsigen_messages.warning (Printf.sprintf "--Access control: X-Forwarded-For: host ip ( %s ) does not match the header ( %s )" request.request_info.ri_remote_ip header );