diff options
author | Son Ho | 2021-11-29 17:00:46 +0100 |
---|---|---|
committer | Son Ho | 2021-11-29 17:00:46 +0100 |
commit | 30628d4bbc3ea8a4b2e716d5c83323599ed98cce (patch) | |
tree | 64bbd82258afb1353f33b48abf1a4b6b528f5af4 /src/Substitute.ml | |
parent | 18298def3e1bda9c5db907d4b0432557a76df337 (diff) |
Start working logging and make progress on printing ASTs
Diffstat (limited to '')
-rw-r--r-- | src/Substitute.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Substitute.ml b/src/Substitute.ml index dc2821f0..8cb92587 100644 --- a/src/Substitute.ml +++ b/src/Substitute.ml @@ -36,7 +36,7 @@ let rec ty_substitute (rsubst : 'r1 -> 'r2) (** Erase the regions in a type and substitute the type variables *) let erase_regions_substitute_types (tsubst : T.TypeVarId.id -> T.ety) (ty : T.rty) : T.ety = - let rsubst (r : T.RegionVarId.id T.region) : T.erased_region = T.Erased in + let rsubst (_ : T.RegionVarId.id T.region) : T.erased_region = T.Erased in ty_substitute rsubst tsubst ty (** Create a type substitution from a list of type variable ids and a list of |