[commit: ghc] wip/inlinable-bug: Add INLINABLE pragma to (<**>) (96d0e5b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/inlinable-bug
Link       : http://ghc.haskell.org/trac/ghc/changeset/96d0e5bb321850d5af3cf2aaf8e63e29a699ca29/ghc

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

commit 96d0e5bb321850d5af3cf2aaf8e63e29a699ca29
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Mon Jan 2 15:04:07 2017 +0000

    Add INLINABLE pragma to (<**>)
    
    Reviewers: austin, hvr, bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D2912


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

96d0e5bb321850d5af3cf2aaf8e63e29a699ca29
 libraries/base/GHC/Base.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs
index 34a038d..f104656 100644
--- a/libraries/base/GHC/Base.hs
+++ b/libraries/base/GHC/Base.hs
@@ -425,6 +425,8 @@ class Functor f => Applicative f where
 (<**>) :: Applicative f => f a -> f (a -> b) -> f b
 (<**>) = liftA2 (flip ($))
 
+{-# INLINABLE (<**>) #-}
+
 -- | Lift a function to actions.
 -- This function may be used as a value for `fmap` in a `Functor` instance.
 liftA :: Applicative f => (a -> b) -> f a -> f b