deleted rec_msg from net interface; removed unused broadcast_new_header

input-output-hk · Sep 25, 2016 · dfef3c8 · dfef3c8
1 parent 0748368
commit dfef3c8
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 13 deletions.
diff --git a/src/net.ml b/src/net.ml
@@ -845,17 +845,6 @@ let find_and_send_requestdata mt h =
     raise Not_found
   with Exit -> ()
 
-let broadcast_new_header h =
-  List.iter
-    (fun (lth,sth,(fd,sin,sout,gcs)) ->
-       match !gcs with
-       | Some(cs) ->
-	   let s = Buffer.create 20 in
-	   seosbf (seo_hashval seosb h (s,None));
-	   ignore (queue_msg cs NewHeader (Buffer.contents s))
-       | None -> ())
-    !netconns
-
 let broadcast_inv tosend =
   let invmsg = Buffer.create 10000 in
   let c = ref (seo_int32 seosb (Int32.of_int (List.length tosend)) (invmsg,None)) in

diff --git a/src/net.mli b/src/net.mli
@@ -110,10 +110,8 @@ val netseeker : unit -> unit
 
 val network_time : unit -> int64 * int
 
-val rec_msg : int64 -> in_channel -> hashval option * hashval * msgtype * string
 val queue_msg : connstate -> msgtype -> string -> hashval
 val queue_reply : connstate -> hashval -> msgtype -> string -> hashval
 val find_and_send_requestdata : msgtype -> hashval -> unit
 val broadcast_requestdata : msgtype -> hashval -> unit
-val broadcast_new_header : hashval -> unit
 val broadcast_inv : (int * int64 * hashval) list -> unit