diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-02-12 19:49:46 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-03 08:12:39 -0500 |
| commit | fe4202cef72311e5763d8f176812885e05fe0465 (patch) | |
| tree | 2db9043c20e3fd7864cd7aaabd6612066af25941 | |
| parent | d89deeba47ce04a5198a71fa4cbc203fe2c90794 (diff) | |
| download | haskell-fe4202cef72311e5763d8f176812885e05fe0465.tar.gz | |
Always INLINE ($!)
($) is INLINE so there is no reason ($!) shouldn't.
| -rw-r--r-- | libraries/base/GHC/Base.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/base/GHC/Base.hs b/libraries/base/GHC/Base.hs index e691c558bf..cb5c335417 100644 --- a/libraries/base/GHC/Base.hs +++ b/libraries/base/GHC/Base.hs @@ -1514,6 +1514,7 @@ f $ x = f x -- the function with that value. ($!) :: forall r a (b :: TYPE r). (a -> b) -> a -> b +{-# INLINE ($!) #-} f $! x = let !vx = x in f vx -- see #2273 -- | @'until' p f@ yields the result of applying @f@ until @p@ holds. |