$OpenBSD: patch-src_utils_net_terminal_ml,v 1.2 2015/02/10 11:50:09 dcoppa Exp $

commit c91a78896526640a301f5a9eeab8b698923e285c
Author: ygrek <ygrek@autistici.org>
Date:   Wed Sep 17 09:56:48 2014 +0300

fix build with OCaml 4.02

--- src/utils/net/terminal.ml.orig	Wed Aug 20 14:20:03 2014
+++ src/utils/net/terminal.ml	Wed Aug 20 14:19:22 2014
@@ -185,7 +185,7 @@ module Output = struct
   let canal = List.assoc chan !chanmap in
   etat.chan <- Some (chan, canal);
   info (sprintf "connecte au canal '%s'" chan);
-  (* {| canal ALL } *)
+  (* { | canal ALL } *)
        with Not_found -> (* pas encore de recepteur pour ce canal *)
   try (* on en cree un *)
     let serveur = nsrecord.get_loc chan in
