diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2019-11-04 16:54:02 +0100 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2019-11-04 16:54:02 +0100 |
| commit | b2890aaa72e0c98f3f0559b843246783ce514411 (patch) | |
| tree | 5cdebec901f88df4eec09f54f2d89c485538c919 /compiler/simplCore/Simplify.hs | |
| parent | eb96d08bdf4f84635f2a8db607766b6a26c00d3b (diff) | |
| download | haskell-wip/ext-arity.tar.gz | |
Fix some breakagewip/ext-arity
Diffstat (limited to 'compiler/simplCore/Simplify.hs')
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index 7f1f0cbe6b..795b0f5654 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -1888,7 +1888,7 @@ rebuildCall env info@(ArgInfo { ai_encl = encl_rules, ai_type = fun_ty ; rebuildCall env (addValArgTo info' arg') cont } where info' = info { ai_strs = strs, ai_discs = discs } - arg_ty = argTy fun_ty + arg_ty = funArgTy fun_ty -- Use this for lazy arguments cci_lazy | encl_rules = RuleArgCtxt |