Add restictKeys example via intersect, also withoutKeys
authorOleg Grenrus <oleg.grenrus@iki.fi>
Fri, 18 Aug 2017 16:50:53 +0000 (19:50 +0300)
committerOleg Grenrus <oleg.grenrus@iki.fi>
Fri, 18 Aug 2017 16:50:53 +0000 (19:50 +0300)
Data/Map/Internal.hs

index 425397e..e5afae2 100644 (file)
@@ -1880,7 +1880,8 @@ difference t1 (Bin _ k _ l2 r2) = case split k t1 of
 -- | /O(m*log(n\/m + 1)), m <= n/. Remove all keys in a 'Set' from a 'Map'.
 --
 -- @
--- m `withoutKeys` s = 'filterWithKey' (\k _ -> k `'Set.notMember'` s) m
+-- m `'withoutKeys'` s = 'filterWithKey' (\k _ -> k `'Set.notMember'` s) m
+-- m `'withoutKeys'` s = m `'difference'` 'fromSet' (const ()) s
 -- @
 --
 -- @since 0.5.8
@@ -1961,7 +1962,8 @@ intersection t1@(Bin _ k x l1 r1) t2
 -- found in a 'Set'.
 --
 -- @
--- m `restrictKeys` s = 'filterWithKey' (\k _ -> k `'Set.member'` s) m
+-- m `'restrictKeys'` s = 'filterWithKey' (\k _ -> k `'Set.member'` s) m
+-- m `'restrictKeys'` s = m `'intersect' 'fromSet' (const ()) s
 -- @
 --
 -- @since 0.5.8