From ef38963f1621d86be25f466758576ac1824a8acc Mon Sep 17 00:00:00 2001 From: Jon Ludlam Date: Fri, 25 Jul 2014 13:16:22 +0100 Subject: [PATCH] Fix build on ocaml-4.00.1 Signed-off-by: Jon Ludlam --- ocaml/xapi/xapi_udhcpd.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ocaml/xapi/xapi_udhcpd.ml b/ocaml/xapi/xapi_udhcpd.ml index f017519770e..b69ac113c0e 100644 --- a/ocaml/xapi/xapi_udhcpd.ml +++ b/ocaml/xapi/xapi_udhcpd.ml @@ -31,6 +31,8 @@ let udhcpd_skel = Filename.concat Fhs.etcdir "udhcpd.skel" let leases_db = Filename.concat "/var/lib/xcp" "dhcp-leases.db" let pidfile = "/var/run/udhcpd.pid" +let (|>) x f = f x + module Ip = struct type t = int * int * int * int with rpc