Clean up conn-subs on Unsubscribe

2019-05-03 10:23:08 +01:00 · 2019-05-03 10:23:08 +01:00 · 38e3894a3d
parent 1c2bd11373
commit 38e3894a3d
1 changed files with 3 additions and 1 deletions
--- a/syndicate/broker/federation2.rkt
+++ b/syndicate/broker/federation2.rkt
@ -201,7 +201,9 @@
                      "Mention of nonexistent subscription ID ~v from connection ~v. Ignoring."
                      subid
                      connid)]
-                 [localid (unsubscribe! localid connid)]))
+                 [localid
+                  (conn-subs (hash-remove (conn-subs) subid))
+                  (unsubscribe! localid connid)]))

           (define (relay-add-or-del localid captures delta expected-outcome ctor)
             (define-values (new-conn-matches conn-outcome)