Fix build on ocaml-4.00.1

Signed-off-by: Jon Ludlam <[email protected]>
xapi-project · Jul 25, 2014 · ef38963 · ef38963
1 parent 6cba889
commit ef38963
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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