From 6cdbb77f2be6f349729e2fd075ca3c51e9365b4f Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 8 Aug 2023 17:42:30 +0200
Subject: Update the code following a refactor on Charon's side

---
 compiler/Driver.ml | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'compiler/Driver.ml')

diff --git a/compiler/Driver.ml b/compiler/Driver.ml
index d819768b..b646a53d 100644
--- a/compiler/Driver.ml
+++ b/compiler/Driver.ml
@@ -214,7 +214,9 @@ let () =
 
       (* Print a warning if the crate contains loops (loops are experimental for now) *)
       let has_loops =
-        List.exists Aeneas.LlbcAstUtils.fun_decl_has_loops m.functions
+        A.FunDeclId.Map.exists
+          (fun _ -> Aeneas.LlbcAstUtils.fun_decl_has_loops)
+          m.functions
       in
       if has_loops then log#lwarning (lazy "Support for loops is experimental");
 
@@ -222,7 +224,9 @@ let () =
          whenever there are opaque functions *)
       if
         !backend = Lean
-        && List.exists (fun (d : A.fun_decl) -> d.body = None) m.functions
+        && A.FunDeclId.Map.exists
+             (fun _ (d : A.fun_decl) -> d.body = None)
+             m.functions
         && not !split_files
       then (
         log#error
-- 
cgit v1.2.3