From b4dad92a7d8145ef71045847c387a5031212d249 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Fri, 16 Mar 2018 10:26:49 +0100
Subject: [PATCH] Alpha: remove dead alphanet specific code

---
 src/proto_alpha/lib_protocol/src/roll_repr.ml  | 6 ------
 src/proto_alpha/lib_protocol/src/roll_repr.mli | 3 ---
 2 files changed, 9 deletions(-)

diff --git a/src/proto_alpha/lib_protocol/src/roll_repr.ml b/src/proto_alpha/lib_protocol/src/roll_repr.ml
index 9144968ac..053cba14d 100644
--- a/src/proto_alpha/lib_protocol/src/roll_repr.ml
+++ b/src/proto_alpha/lib_protocol/src/roll_repr.ml
@@ -36,9 +36,3 @@ module Index = struct
       end
     | _ -> None
 end
-
-let rec too_many_roll next =
-  if Compare.Int32.(next < 100_000l) then
-    0
-  else
-    1 + too_many_roll (Int32.div next 2l)
diff --git a/src/proto_alpha/lib_protocol/src/roll_repr.mli b/src/proto_alpha/lib_protocol/src/roll_repr.mli
index e3f662776..efbcde559 100644
--- a/src/proto_alpha/lib_protocol/src/roll_repr.mli
+++ b/src/proto_alpha/lib_protocol/src/roll_repr.mli
@@ -28,6 +28,3 @@ module Index : sig
   val to_path: t -> string list -> string list
   val of_path: string list -> t option
 end
-
-(** Hack for the alphanet. *)
-val too_many_roll: t -> int