From 0e8ea9b2ac128bd6b907dd6741432daaa0f48d87 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 8 Jan 2012 15:14:39 -0500
Subject: [PATCH] Avoid being noisy when asked to post to node named by the
 empty string

---
 node.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/node.ml b/node.ml
index 805c11e..efdbe5f 100644
--- a/node.ml
+++ b/node.ml
@@ -72,11 +72,9 @@ let bind_ignore (filter, node) =
   else Log.warn "Duplicate binding" [Sexp.Str filter]
 
 let send_ignore name body =
-  if send name body
+  if send name body || name = ""
   then ()
-  else (Log.warn "send to missing node" [Sexp.Str name];
-	Sexp.output_sexp Pervasives.stdout body;
-	print_newline ())
+  else Log.warn "send to missing node" [Sexp.Str name; body]
 
 let post_ignore name label body token =
   send_ignore name (Message.post (label, body, token))