diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-02 15:04:07 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-01-02 15:08:34 +0000 |
commit | 96d0e5bb321850d5af3cf2aaf8e63e29a699ca29 (patch) | |
tree | 683d34c322c4d396d85f2811a83dfb317a0b1211 | |
parent | 9ff07382ed377d38d677e8785b34536c39894467 (diff) | |
download | haskell-96d0e5bb321850d5af3cf2aaf8e63e29a699ca29.tar.gz |
Add INLINABLE pragma to (<**>)wip/inlinable-bug
Reviewers: austin, hvr, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2912
-rw-r--r-- | libraries/base/GHC/Base.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index 34a038d16c..f104656fd7 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 |