temporary fix while waiting for ocaml/ocaml#10364 to be merged

kit-ty-kate · Jun 2, 2021 · 2ea32ee · 2ea32ee
1 parent 0dbaa44
commit 2ea32ee
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/parser_automaton_internal.ml b/src/parser_automaton_internal.ml
@@ -535,8 +535,9 @@ let start_sexp_comment : type u s. (u, s) action =
   state.ignoring_stack <- state.depth :: state.ignoring_stack;
   match state.kind with
   | Cst ->
-    In_sexp_comment
-      { hash_semi_pos = current_pos state ~delta:(-1); rev_comments = []; stack }
+    (In_sexp_comment
+       { hash_semi_pos = current_pos state ~delta:(-1); rev_comments = []; stack }
+       : s)
   | _ -> stack
 ;;