From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Thu, 2 Dec 2021 13:16:33 +0000 (-0500)
Subject: Use group-by from stdlib
X-Git-Url: https://git.xandkar.net/?p=tt.git;a=commitdiff_plain;h=38ff609be21cfce1e23d97f3693d9fe1ef176183

Use group-by from stdlib
---

diff --git a/tt.rkt b/tt.rkt
index cbc5b7a..9f0d665 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -166,12 +166,6 @@
 
 (: peers-merge (-> (Listof Peer) * (Listof Peer)))
 (define (peers-merge . peer-sets)
-  (define groups
-    (foldl
-      (λ (p groups)
-         (hash-update groups (Peer-url-str p) (λ (group) (cons p group)) '()))
-      (hash)
-      (append* peer-sets)))
   (define (merge peers)
     (match peers
       ['() (raise 'impossible)]
@@ -188,7 +182,7 @@
                    [else
                      (raise 'impossible)])])
          (merge (cons p ps)))]))
-  (sort (map merge (hash-values groups))
+  (sort (map merge (group-by Peer-url-str (append* peer-sets)))
         (match-lambda**
           [((Peer _ _ u1 _) (Peer _ _ u2 _)) (string<? u1 u2)])))