@@ -92,11 +92,11 @@ map f s = fromList (List.map f (toList s))
93{-| Create a new set consisting only of elements which satisfy a predicate. -}
93{-| Create a new set consisting only of elements which satisfy a predicate. -}
94filter : (comparable -> Bool) -> Set comparable -> Set comparable
94filter : (comparable -> Bool) -> Set comparable -> Set comparable
95−filter p = Dict.filter p
95+filter p = Dict.filterWithKey (\k _ -> p k)
97{-| Create two new sets; the first consisting of elements which satisfy a
97{-| Create two new sets; the first consisting of elements which satisfy a
98predicate, the second consisting of elements which do not. -}
98predicate, the second consisting of elements which do not. -}
99partition : (comparable -> Bool)
99partition : (comparable -> Bool)
100 -> Set comparable
100 -> Set comparable
101 -> (Set comparable, Set comparable)
101 -> (Set comparable, Set comparable)
102−partition p = Dict.partition p
102+partition p = Dict.partitionWithKey (\k _ -> p k)