Fixed Map deleteFirstsBy [fbt]

norm2782 · Sep 14, 2007 · ebf5f10 · ebf5f10
1 parent 8bdee87
commit ebf5f10
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Data/ListLike/Instances.hs b/src/Data/ListLike/Instances.hs
@@ -387,6 +387,9 @@ instance (Ord key, Eq val) => ListLike (Map.Map key val) (key, val) where
     fromList = Map.fromList
     nubBy _ = id
     --deleteBy
+    deleteFirstsBy func m1 m2 = Map.fromAscList $ 
+                                L.deleteFirstsBy func (Map.toAscList m1)
+                                                 (Map.toAscList m2)
     --deleteFirstsBy
     --unionBy
     --intersectBy