From 60ba54ffe01be85ec6f1d6948c1ca4b6db1cf165 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Sun, 25 May 2014 12:29:07 +0200
Subject: Add pretty colors.

---
 src/util.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/util.ml')

diff --git a/src/util.ml b/src/util.ml
index b37ae4f..ae1f049 100644
--- a/src/util.ml
+++ b/src/util.ml
@@ -3,7 +3,7 @@ open Unix
 let (@@) a b = a b
 
 type id = int * int
-let new_id () : id = (Random.int 100000, Random.int 100000)
+let new_id () : id = (Random.int 10000000, Random.int 10000000)
 let id_str (a, b) = Format.sprintf "%d.%d" a b
 
 (* make_addr : string -> int -> sockaddr *)
-- 
cgit v1.2.3