diff options
| author | Pierre-Marie Pédrot | 2019-10-18 19:51:32 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-18 19:51:32 +0200 |
| commit | d8448a980cbb565a22d5196fc79a5b342c443e32 (patch) | |
| tree | 60c2870d28ef33e88e8f0378bd4d695a188ad8d6 /engine/uState.ml | |
| parent | 8a51a3fe1a71a95bdaabefbc49b0737d31b07172 (diff) | |
| parent | 3d977093338d95950b09c1fac2bd90f48c1fd4ab (diff) | |
Merge PR #10913: re-expose UState.demote_seff_univs
Ack-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'engine/uState.ml')
| -rw-r--r-- | engine/uState.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index af714f6282..efced52990 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -520,7 +520,7 @@ let merge ?loc ~sideff rigid uctx ctx' = let merge_subst uctx s = { uctx with uctx_univ_variables = LMap.subst_union uctx.uctx_univ_variables s } -let demote_seff_univs (univs,_) uctx = +let demote_seff_univs univs uctx = let seff = LSet.union uctx.uctx_seff_univs univs in { uctx with uctx_seff_univs = seff } @@ -541,7 +541,7 @@ let merge_seff uctx ctx' = let emit_side_effects eff u = let uctxs = Safe_typing.universes_of_private eff in List.fold_left (fun u uctx -> - let u = demote_seff_univs uctx u in + let u = demote_seff_univs (fst uctx) u in merge_seff u uctx) u uctxs |