From 52d21bad06b9bf56f7043f3c371bb941cb22778f Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 2 Mar 2015 17:28:39 +0000
Subject: [PATCH] actually use protocol_to_int!

---
 lib/ipv6.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ipv6.ml b/lib/ipv6.ml
index 15caff498..ba4f1180d 100644
--- a/lib/ipv6.ml
+++ b/lib/ipv6.ml
@@ -924,7 +924,7 @@ module Make (E : V1_LWT.ETHIF) (T : V1_LWT.TIME) (C : V1.CLOCK) = struct
     end acts
 
   let allocate_frame t ~dst ~proto =
-    let proto = match proto with `ICMP -> 58 | `UDP -> 17 | `TCP -> 6 in
+    let proto = Ipv6_wire.protocol_to_int proto in
     let src = AddressList.select_source t.state.address_list dst in
     Allocate.frame ~mac:t.state.mac ~src ~hlim:t.state.cur_hop_limit ~dst ~proto