[commit: base] ghc-7.4: Fix function name in INLINABLE pragma. (47920f5)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/47920f549f5b37115df2dbe84bc885f497ceefe8

>---------------------------------------------------------------

commit 47920f549f5b37115df2dbe84bc885f497ceefe8
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Tue Mar 6 17:58:59 2012 +0000

    Fix function name in INLINABLE pragma.

>---------------------------------------------------------------

 Data/Bits.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Data/Bits.hs b/Data/Bits.hs
index 6639698..891ef5a 100644
--- a/Data/Bits.hs
+++ b/Data/Bits.hs
@@ -239,7 +239,7 @@ class (Eq a, Num a) => Bits a where
       where
         go !c 0 = c
         go c w = go (c+1) (w .&. (w - 1))  -- clear the least significant bit set
-    {-# INLINABLE popCountDefault #-}
+    {-# INLINABLE popCount #-}
     {- This implementation is intentionally naive.  Instances are
        expected to override it with something optimized for their
        size. -}