Repository : ssh://darcs.haskell.org//srv/darcs/packages/containers On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1a682593892f44d4727a53a51685d29d47042d33 >--------------------------------------------------------------- commit 1a682593892f44d4727a53a51685d29d47042d33 Author: Milan Straka <[email protected]> Date: Fri Apr 20 17:43:14 2012 +0200 Add forgotten GHC >= 7.0 condition in (!). The INLINABLE pragma works only for GHC >= 7.0 and generates warning for older compilers. >--------------------------------------------------------------- Data/Map/Base.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/Data/Map/Base.hs b/Data/Map/Base.hs index 48d3723..95d3972 100644 --- a/Data/Map/Base.hs +++ b/Data/Map/Base.hs @@ -255,7 +255,9 @@ infixl 9 !,\\ -- (!) :: Ord k => Map k a -> k -> a m ! k = find k m +#if __GLASGOW_HASKELL__ >= 700 {-# INLINABLE (!) #-} +#endif -- | Same as 'difference'. (\\) :: Ord k => Map k a -> Map k b -> Map k a _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
