diff --git a/Data/FMList.hs b/Data/FMList.hs
--- a/Data/FMList.hs
+++ b/Data/FMList.hs
@@ -285,7 +285,7 @@
   a <$ l     = transform (\f -> const (f a)) l
 
 instance Foldable FMList where
-  foldMap    = flip unFM
+  foldMap m f = unFM f m
 
 instance Traversable FMList where
   traverse f = foldMapA (fmap one . f)
diff --git a/fmlist.cabal b/fmlist.cabal
--- a/fmlist.cabal
+++ b/fmlist.cabal
@@ -1,5 +1,5 @@
 name:                fmlist
-version:             0.9.3
+version:             0.9.4
 synopsis:            FoldMap lists
 description:
   FoldMap lists are lists represented by their foldMap function.