Add missing case for ocaml 5.2.

rescript-lang · May 29, 2024 · 30486d7 · 30486d7
1 parent 5237ff5
commit 30486d7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Arnold.ml b/src/Arnold.ml
@@ -848,6 +848,10 @@ module Compile = struct
     | Texp_function (_, Tfunction_cases {cases; _}) ->
     #endif
        cases |> List.map (case ~ctx) |> Command.nondet
+    #if OCAML_VERSION < (5, 2, 0)
+    #else
+    | Texp_function (_, Tfunction_body e) -> e |> expression ~ctx
+    #endif
     | Texp_match _ when not (expr.exp_desc |> Compat.texpMatchHasExceptions)
       -> (
       (* No exceptions *)