syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Avoid being noisy when asked to post to node named by the empty string

This commit is contained in:
Tony Garnock-Jones 2012-01-08 15:14:39 -05:00
parent 5217e085ea
commit 0e8ea9b2ac
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
node.ml
View File

@ -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))