diff options
| -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 |