diff options
author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-11-09 21:33:03 +0300 |
---|---|---|
committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-11-09 21:33:03 +0300 |
commit | 63a81eca02047bcdbe7e78abce0109dd8a5f4feb (patch) | |
tree | abca22ed1ba54f68a18843f0d9159e0464522adf | |
parent | 0ecc68f19965b3264403f33d3297b873288aef8c (diff) | |
download | haskell-wip/strict-stg-expr.tar.gz |
Make a binding lazywip/strict-stg-expr
-rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index 44c005526d..f24e66f406 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -753,7 +753,7 @@ cgIdApp fun_id args = do self_loop_info <- getSelfLoop let fun_arg = StgVarArg fun_id fun_name = idName fun_id - fun = idInfoToAmode fun_info + ~fun = idInfoToAmode fun_info lf_info = cg_lf fun_info n_args = length args v_args = length $ filter (isVoidTy . stgArgType) args |