diff options
| author | Maxime Dénès | 2019-09-04 15:24:32 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-09-04 15:24:32 +0200 |
| commit | cb8a23e805715f16173687d1e892711a9bb135ba (patch) | |
| tree | 3c625cf9fa8ee6722d0467e06d805dac45608809 /plugins/extraction/mlutil.ml | |
| parent | 6a6a2575c10d05cd0151a83c133825d43bd3cb28 (diff) | |
| parent | 6a90e74a59d7848ef1b026533ee600511a1c41ff (diff) | |
Merge PR #10577: Fix #7348: extraction of dependent record projections
Reviewed-by: Zimmi48
Reviewed-by: maximedenes
Diffstat (limited to 'plugins/extraction/mlutil.ml')
| -rw-r--r-- | plugins/extraction/mlutil.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml index c57daf0047..000df26858 100644 --- a/plugins/extraction/mlutil.ml +++ b/plugins/extraction/mlutil.ml @@ -1547,6 +1547,7 @@ let inline r t = not (to_keep r) (* The user DOES want to keep it *) && not (is_inline_custom r) && (to_inline r (* The user DOES want to inline it *) - || (lang () != Haskell && not (is_projection r) && - (is_recursor r || manual_inline r || inline_test r t))) + || (lang () != Haskell && + (is_projection r || is_recursor r || + manual_inline r || inline_test r t))) |