[commit: containers] master: Add forgotten GHC >= 7.0 condition in (!). (1a68259)

Paolo Capriotti <[email protected]>
Newsgroups gmane.comp.lang.haskell.cvs.libraries
Message-ID <[email protected]>
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.