[Git][ghc/ghc][wip/andreask/opt-bindersof] Avoid unknown call, probably

[Andreas Klebinger (@AndreasK)]

Andreas Klebinger pushed to branch wip/andreask/opt-bindersof at Glasgow Haskell Compiler / GHC


Commits:
64456eb2 by Andreas Klebinger at 2022-08-14T12:26:15+02:00
Avoid unknown call, probably

- - - - -


1 changed file:

- compiler/GHC/Core.hs


Changes:

=====================================
compiler/GHC/Core.hs
=====================================
@@ -122,8 +122,6 @@ import Data.Data hiding (TyCon)
 import Data.Int
 import Data.Word
 
-import GHC.Exts (inline)
-
 infixl 4 `mkApps`, `mkTyApps`, `mkVarApps`, `App`, `mkCoApps`
 -- Left associative, so that we can say (f `mkTyApps` xs `mkVarApps` ys)
 
@@ -1955,14 +1953,16 @@ bindersOf (Rec pairs)       = [binder | (binder, _) <- pairs]
 bindersOfBinds :: [Bind b] -> [b]
 bindersOfBinds binds = foldr ((++) . bindersOf) [] binds
 
-{-# INLINABLE foldBindersOfStrict #-}
+{-# INLINE foldBindersOfStrict #-}
 foldBindersOfStrict :: (a -> b -> a) -> a -> Bind b -> a
-foldBindersOfStrict f z (NonRec binder _) = f z binder
-foldBindersOfStrict f z (Rec pairs) = foldl' f z $ map fst pairs
+foldBindersOfStrict f = \z bndr ->
+  case bndr of
+    (NonRec binder _) -> f z binder
+    (Rec pairs) -> foldl' f z $ map fst pairs
 
-{-# INLINABLE foldBindersOfBindsStrict #-}
+{-# INLINE foldBindersOfBindsStrict #-}
 foldBindersOfBindsStrict :: (a -> b -> a) -> a -> [Bind b] -> a
-foldBindersOfBindsStrict f z binds = foldl' (foldBindersOfStrict f) z binds
+foldBindersOfBindsStrict f = \z binds -> foldl' (foldBindersOfStrict f) z binds
 
 rhssOfBind :: Bind b -> [Expr b]
 rhssOfBind (NonRec _ rhs) = [rhs]



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/64456eb20a691536c97643a71dbdc0f099ba9f68

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/64456eb20a691536c97643a71dbdc0f099ba9f68
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20220814/416da050/attachment-0001.html>