1 files changed, 1 insertions, 1 deletions
diff --git a/src/Map.hs b/src/Map.hs
index 27f30569..64d28df0 100644
--- a/src/Map.hs
+++ b/src/Map.hs
@@ -56,7 +56,7 @@ fromList :: Ord k => [(k,a)] -> Map k a
 fromList = listToFM
 
 fromListWith :: Ord k => (a -> a -> a) -> [(k,a)] -> Map k a 
-fromListWith = flip addListToFM_C emptyFM
+fromListWith c = addListToFM_C (flip c) emptyFM
 
 toAscList :: Map k a -> [(k,a)]
 toAscList = fmToList