From d7e56fa4d1a0f576dfe6226fca1756aba07e544e Mon Sep 17 00:00:00 2001 From: Simon Jakobi Date: Fri, 4 Mar 2022 01:07:09 +0100 Subject: [PATCH] Fix reference to equal2 `equal` was renamed to `equal2` in #193. --- Data/HashMap/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/HashMap/Internal.hs b/Data/HashMap/Internal.hs index 557842ec..0f3a3c86 100644 --- a/Data/HashMap/Internal.hs +++ b/Data/HashMap/Internal.hs @@ -452,7 +452,7 @@ cmp cmpk cmpv t1 t2 = go (toList' t1 []) (toList' t2 []) leafCompare (L k v) (L k' v') = cmpk k k' `mappend` cmpv v v' --- Same as 'equal' but doesn't compare the values. +-- Same as 'equal2' but doesn't compare the values. equalKeys1 :: (k -> k' -> Bool) -> HashMap k v -> HashMap k' v' -> Bool equalKeys1 eq t1 t2 = go (toList' t1 []) (toList' t2 []) where