diff options
author | Sebastian Graf <sebastian.graf@kit.edu> | 2021-02-03 21:45:20 +0100 |
---|---|---|
committer | Sebastian Graf <sebastian.graf@kit.edu> | 2021-02-03 21:46:47 +0100 |
commit | 0ca6b4de2df01a78ac64cc827b2bbb6a17cf6659 (patch) | |
tree | c77322e1c370c9612e368881c87c33e57a9002a6 | |
parent | ddbdec4128f0e6760c8c7a19344f2f2a7a3314bf (diff) | |
download | haskell-0ca6b4de2df01a78ac64cc827b2bbb6a17cf6659.tar.gz |
seqBind after Call Aritywip/T19311
-rw-r--r-- | compiler/GHC/Core/Opt/CallArity.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/CallArity.hs b/compiler/GHC/Core/Opt/CallArity.hs index aa1f2ee5a1..e1ed3ed409 100644 --- a/compiler/GHC/Core/Opt/CallArity.hs +++ b/compiler/GHC/Core/Opt/CallArity.hs @@ -21,6 +21,7 @@ import GHC.Core.Utils ( exprIsCheap, exprIsTrivial ) import GHC.Data.Graph.UnVar import GHC.Types.Demand import GHC.Utils.Misc +import GHC.Core.Seq (seqBinds) import Control.Arrow ( first, second ) @@ -433,7 +434,7 @@ choice, and hence Call Arity sets the call arity for join points as well. -- Main entry point callArityAnalProgram :: DynFlags -> CoreProgram -> CoreProgram -callArityAnalProgram _dflags binds = binds' +callArityAnalProgram _dflags binds = seqBinds binds' `seq` binds' where (_, binds') = callArityTopLvl [] emptyVarSet binds |