From e27b5834b38295c4e8901ced4053d37bc63dc72b Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jan 2005 14:14:41 +0000
Subject: [haddock @ 2005-01-16 14:14:39 by panne] Data.Map.unions is
 left-biased.

---
 src/Map.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Map.hs')

diff --git a/src/Map.hs b/src/Map.hs
index 64d28df0..16cebdee 100644
--- a/src/Map.hs
+++ b/src/Map.hs
@@ -47,7 +47,7 @@ unionWith :: Ord k => (a -> a -> a) -> Map k a -> Map k a -> Map k a
 unionWith c l r = plusFM_C c r l
 
 unions :: Ord k => [Map k a] -> Map k a
-unions = foldr plusFM emptyFM
+unions = foldl (flip plusFM) emptyFM
 
 elems :: Map k a -> [a]
 elems = eltsFM
-- 
cgit v1.2.3