diff --git a/sets.cabal b/sets.cabal
--- a/sets.cabal
+++ b/sets.cabal
@@ -1,5 +1,5 @@
 Name:                   sets
-Version:                0.0.4
+Version:                0.0.4.1
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                MIT
diff --git a/src/Data/Set/Ordered/Many/With.hs b/src/Data/Set/Ordered/Many/With.hs
--- a/src/Data/Set/Ordered/Many/With.hs
+++ b/src/Data/Set/Ordered/Many/With.hs
@@ -318,7 +318,8 @@
 fromList :: ( Ord k
             , Sets.HasSingleton a (c a)
             , Sets.HasUnion (c a)
-            ) => (a -> k) -> [a] -> SetsWith k c a
+            , Fold.Foldable f
+            ) => (a -> k) -> f a -> SetsWith k c a
 fromList f = Fold.foldr insert $ empty f
 
 -- -- * Ordered List
diff --git a/src/Data/Set/Ordered/Unique/With.hs b/src/Data/Set/Ordered/Unique/With.hs
--- a/src/Data/Set/Ordered/Unique/With.hs
+++ b/src/Data/Set/Ordered/Unique/With.hs
@@ -198,7 +198,7 @@
 toList :: SetWith k a -> (a -> k, [a])
 toList (SetWith (f,xs)) = (f, Map.elems xs)
 
-fromList :: Ord k => (a -> k) -> [a] -> SetWith k a
+fromList :: (Ord k, Fold.Foldable f) => (a -> k) -> f a -> SetWith k a
 fromList f = List.foldr insert $ empty f
 
 -- * Ordered List