Commits

Sebastien Mondet committed c243819

Make code compatible with older OCaml versions

At least, 4.00.1.

Comments (0)

Files changed (1)

 open Pvem_lwt_unix
 open Deferred_result
 open Printf
+let (|>) f x = x f
 
 
 (**  This module allows to inspect the behavior of the library from outside. *)
       *)
       return c
     with e -> 
-      Debug.(p @@ fun () ->
+      Debug.(p (fun () ->
           s "exn in server_context: openssl: " % s (Ssl.get_error_string ())
-      );
+        ));
       fail_tls (`Context_exn e)
 
   let add_certificate_exn c ~cert ~key =