From bb158d611c9138fe0c49d669807dff84dc5fba21 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 18 Jan 2022 18:03:32 +0100
Subject: Make a minor modification

---
 src/TypesUtils.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/TypesUtils.ml b/src/TypesUtils.ml
index 3accb9c5..b0cd57c5 100644
--- a/src/TypesUtils.ml
+++ b/src/TypesUtils.ml
@@ -94,6 +94,7 @@ let rec ety_no_regions_to_rty (ty : ety) : rty =
 (** Check if a [ty] contains regions.
 
     TODO: rename to "has_borrows"?
+    TODO: update, and check the usage.
   *)
 let ty_has_regions (ty : 'r ty) : bool =
   let obj =
@@ -107,6 +108,7 @@ let ty_has_regions (ty : 'r ty) : bool =
       method! visit_Ref _ _ _ _ = raise Found
     end
   in
+  raise Errors.Unimplemented;
   try
     obj#visit_ty () ty;
     false
-- 
cgit v1.2.3