sets 0.0.4 → 0.0.4.1

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

• sets.cabal +1/−1
• src/Data/Set/Ordered/Many/With.hs +2/−1
• src/Data/Set/Ordered/Unique/With.hs +1/−1

@@ -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

@@ -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

@@ -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