Merge pull request #1850 from jonludlam/ocaml-4.00.1-build-fix

Fix build on ocaml-4.00.1

Author: Jon Ludlam

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