better error message

2026-03-07 18:37:56 -05:00 · 2025-12-09 12:11:03 -05:00 · 2025-12-09 12:11:03 -05:00 · 0947d2d523
commit 0947d2d523
parent b3da5bc41e
1 changed files with 4 additions and 1 deletions
--- a/src/ppx/ppx_trace.ml
+++ b/src/ppx/ppx_trace.ml
@ -73,7 +73,10 @@ let expand_top_let ~ctxt rec_flag (vbs : _ list) =
                pstr_eval ~loc
                  (pexp_constant ~loc
                     (Pconst_string
-                        ("ppxtrace: cannot trace `function`", loc, None)))
+                        ( "ppxtrace: cannot trace `function`, please unsugar \
+                           to `fun`+`match`.",
+                          loc,
+                          None )))
                  [];
              ] )
      | _ ->