Sometimes we want to print user-facin ECustom objects for functions c…

…oming from compiled OCaml!
CatalaLang · Nov 14, 2024 · 6d88b3d · 6d88b3d
1 parent a7ab01b
commit 6d88b3d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/compiler/shared_ast/print.ml b/compiler/shared_ast/print.ml
@@ -1117,12 +1117,12 @@ module UserFacing = struct
       Format.fprintf ppf "@[<hov 2>%a@ %a@]" EnumConstructor.format cons
         (value ~fallback lang) e
     | EEmpty -> Format.pp_print_string ppf "ø"
-    | EAbs _ -> Format.pp_print_string ppf "<function>"
+    | ECustom _ | EAbs _ -> Format.pp_print_string ppf "<function>"
     | EExternal _ -> Format.pp_print_string ppf "<external>"
     | EApp _ | EAppOp _ | EVar _ | EIfThenElse _ | EMatch _ | ETupleAccess _
     | EStructAccess _ | EAssert _ | EFatalError _ | EDefault _ | EPureDefault _
     | EErrorOnEmpty _ | ELocation _ | EScopeCall _ | EDStructAmend _
-    | EDStructAccess _ | ECustom _ ->
+    | EDStructAccess _ ->
       fallback ppf e
 
   let expr :