Repository : ssh://[email protected]/containers On branch : ghc-head Link : http://git.haskell.org/?p=packages/containers.git;a=commit;h=54fc9fe187f5bf7930f5f3e5167a569d42b5d7dd
>--------------------------------------------------------------- commit 54fc9fe187f5bf7930f5f3e5167a569d42b5d7dd Author: Milan Straka <[email protected]> Date: Mon Nov 26 09:47:50 2012 +0100 Remove unnecessary Ord constraint in Set.Base.map. >--------------------------------------------------------------- 54fc9fe187f5bf7930f5f3e5167a569d42b5d7dd Data/Set/Base.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/Set/Base.hs b/Data/Set/Base.hs index 8d42247..a7a73e6 100644 --- a/Data/Set/Base.hs +++ b/Data/Set/Base.hs @@ -659,7 +659,7 @@ partition p0 t0 = toPair $ go p0 t0 -- It's worth noting that the size of the result may be smaller if, -- for some @(x,y)@, @x \/= y && f x == f y@ -map :: (Ord a, Ord b) => (a->b) -> Set a -> Set b +map :: Ord b => (a->b) -> Set a -> Set b map f = fromList . List.map f . toList #if __GLASGOW_HASKELL__ >= 700 {-# INLINABLE map #-} _______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
