From 8456506c0b9c8e78eec2cc464851cef36ca03398 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Sun, 25 May 2014 21:54:20 +0200
Subject: Revise build system.

---
 src/util.ml | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/util.ml')

diff --git a/src/util.ml b/src/util.ml
index ae1f049..87e779e 100644
--- a/src/util.ml
+++ b/src/util.ml
@@ -2,9 +2,12 @@ open Unix
 
 let (@@) a b = a b
 
-type id = int * int
-let new_id () : id = (Random.int 10000000, Random.int 10000000)
-let id_str (a, b) = Format.sprintf "%d.%d" a b
+type id = int * int * int
+let new_id () : id =
+        (   Random.int 10000000,
+            Random.int 10000000,
+            Random.int 10000000      )
+let id_str (a, b, c) = Format.sprintf "%d.%d.%d" a b c
 
 (* make_addr : string -> int -> sockaddr *)
 let make_addr host port =
-- 
cgit v1.2.3