P2p: comment out dead code

This commit is contained in:
Grégoire Henry 2017-08-22 14:41:58 +02:00
parent ba6e78900c
commit 4c7d4a8348
4 changed files with 2 additions and 5 deletions

View File

@ -33,7 +33,6 @@ PKG dynlink
PKG ezjsonm PKG ezjsonm
PKG git PKG git
PKG git-unix PKG git-unix
PKG ipv6-multicast
PKG irmin-unix PKG irmin-unix
PKG irmin-git PKG irmin-git
PKG irmin PKG irmin
@ -50,4 +49,4 @@ PKG sodium
PKG ssl PKG ssl
PKG unix PKG unix
PKG zarith PKG zarith
PKG leveldb PKG leveldb

View File

@ -309,7 +309,6 @@ NODE_PACKAGES := \
cohttp.lwt \ cohttp.lwt \
dynlink \ dynlink \
git \ git \
ipv6-multicast \
irmin-unix \ irmin-unix \
ocplib-resto.directory \ ocplib-resto.directory \
ssl \ ssl \

View File

@ -17,6 +17,7 @@ let shutdown () = Lwt.return_unit
let inet_addr = Unix.inet_addr_of_string "ff0e::54:455a:3053" let inet_addr = Unix.inet_addr_of_string "ff0e::54:455a:3053"
(*
module Message = struct module Message = struct
let encoding = let encoding =
@ -61,7 +62,6 @@ let create_socket (iface, disco_addr, disco_port) =
Ipv6_multicast.Unix.membership ?iface usock disco_addr `Join ; Ipv6_multicast.Unix.membership ?iface usock disco_addr `Join ;
iface, sock, saddr iface, sock, saddr
(*
module Answerer = struct module Answerer = struct
(* Launch an answer machine for the discovery mechanism, takes a (* Launch an answer machine for the discovery mechanism, takes a

View File

@ -22,7 +22,6 @@ depends: [
"ezjsonm" {>= "0.5.0" } "ezjsonm" {>= "0.5.0" }
"git" "git"
"git-unix" "git-unix"
"ipv6-multicast"
"irmin" {>= "1.3" } "irmin" {>= "1.3" }
"irmin-unix" "irmin-unix"
"lwt" {>= "3.0.0" } "lwt" {>= "3.0.0" }