diff options
| author | Son Ho | 2023-11-12 19:28:56 +0100 |
|---|---|---|
| committer | Son Ho | 2023-11-12 19:28:56 +0100 |
| commit | b9f33bdd871a1bd7a1bd29f148dd05bd7990548b (patch) | |
| tree | ba5a21debaad2d1efa1add3cbcbfa217b115d638 /compiler/ReorderDecls.ml | |
| parent | 587f1ebc0178acb19029d3fc9a729c197082aba7 (diff) | |
Remove the 'r type variable from the ty type definition
Diffstat (limited to 'compiler/ReorderDecls.ml')
| -rw-r--r-- | compiler/ReorderDecls.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ReorderDecls.ml b/compiler/ReorderDecls.ml index 10b68da3..c82d625f 100644 --- a/compiler/ReorderDecls.ml +++ b/compiler/ReorderDecls.ml @@ -46,8 +46,8 @@ let compute_body_fun_deps (e : texpression) : FunIdSet.t = | Pure _ -> () | FromLlbc (fid, lp_id, rg_id) -> ( match fid with - | FunId (Assumed _) -> () - | TraitMethod (_, _, fid) | FunId (Regular fid) -> + | FunId (FAssumed _) -> () + | TraitMethod (_, _, fid) | FunId (FRegular fid) -> let id = { def_id = fid; lp_id; rg_id } in ids := FunIdSet.add id !ids)) end |