From 6d88b3dd9316dd46fa38b3670324517a1b310a49 Mon Sep 17 00:00:00 2001
From: Denis Merigoux <denis.merigoux@gmail.com>
Date: Thu, 14 Nov 2024 14:23:47 +0100
Subject: [PATCH] Sometimes we want to print user-facin ECustom objects for
 functions coming from compiled OCaml!

---
 compiler/shared_ast/print.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/shared_ast/print.ml b/compiler/shared_ast/print.ml
index 37aa452a9..39becad41 100644
--- 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 :