From 45db7318596db6c9c4a0fd0a0a0ac4bce96f8328 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Mon, 2 Mar 2020 18:16:25 +0100 Subject: [PATCH] utils: Make the contract of collect-by-key more specific. --- utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils.rkt b/utils.rkt index e29c6e7..af0dc9d 100644 --- a/utils.rkt +++ b/utils.rkt @@ -25,7 +25,7 @@ #:e-func (-> any/c any/c)) graph?)] [pretty-print-set (-> generic-set? string?)] - [collect-by-key (-> (listof any/c) (listof any/c) (values (listof any/c) (listof any/c)))] + [collect-by-key (-> (listof any/c) (listof any/c) (values (listof any/c) (listof (listof any/c))))] [collect-by-key/sets (-> (listof any/c) (listof any/c) (values (listof any/c) (listof (set/c any/c))))] [ht-values:list->set (-> (hash/c any/c (listof any/c)) (hash/c any/c (set/c any/c)))])