Correct waiters count.

2012-05-31 10:17:28 +01:00 · 2012-05-31 10:17:28 +01:00 · 1320bfc166
parent 8abd0e013c
commit 1320bfc166
1 changed files with 1 additions and 0 deletions
--- a/server/queuenode.ml
+++ b/server/queuenode.ml
@ -54,6 +54,7 @@ let shoveller info =
 	  info.waiters_out (Some sub);
 	  message_loop ()
 	| false ->
+	  info.waiters <- info.waiters - 1;
 	  waiter_loop ()
    in waiter_loop ()
  in message_loop ()