Merge pull request mirage#255 from yomimono/remove-id

remove unused id types
samoht · Oct 4, 2016 · 0395cf3 · 0395cf3
2 parents d080d3a + dc50490
commit 0395cf3
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 5 deletions.
diff --git a/lib/arpv4/arpv4.ml b/lib/arpv4/arpv4.ml
@@ -41,7 +41,6 @@ module Make (Ethif : V1_LWT.ETHIF) (Clock : V1.MCLOCK) (Time : V1_LWT.TIME) = st
   type macaddr = Macaddr.t
   type ethif = Ethif.t
   type repr = string
-  type id = t
   type error
 
   let arp_timeout = Duration.of_sec 60 (* age entries out of cache after this many seconds *)

diff --git a/lib/icmp/icmpv4.ml b/lib/icmp/icmpv4.ml
@@ -13,8 +13,6 @@ module Make(IP : V1_LWT.IPV4) = struct
 
   type error = [ `Routing | `Unknown ]
 
-  type id = t
-
   let connect ip =
     let t = { ip; echo_reply = true } in
     Lwt.return t

diff --git a/unix/icmpv4_socket.ml b/unix/icmpv4_socket.ml
@@ -6,8 +6,6 @@ type 'a io = 'a Lwt.t
 
 type t = unit
 
-type id = t
-
 type error = string
 
 let pp_error fmt err = Format.fprintf fmt "%s" err