[ocaml] put space between constructor and list pattern

tweag · Oct 23, 2023 · bb3ba08 · bb3ba08
1 parent d1dc299
commit bb3ba08
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/topiary-queries/queries/ocaml.scm b/topiary-queries/queries/ocaml.scm
@@ -501,6 +501,7 @@
     (field_get_expression)
     (local_open_pattern)
     (labeled_argument)
+    (list_pattern)
     ; start equivalence class
     (extended_module_path)
     (module_path)

diff --git a/topiary/tests/samples/expected/ocaml.ml b/topiary/tests/samples/expected/ocaml.ml
@@ -1134,3 +1134,8 @@ module Make:
   functor (I: Interface.S) ->
   functor (_: Transport.S with type payload = I.data Payload.t) ->
   S
+
+(* #647: missing space for pattern matching of constructor holding list *)
+let _ =
+  match foo with
+  | Bar ["baz"] -> qux
diff --git a/topiary/tests/samples/input/ocaml.ml b/topiary/tests/samples/input/ocaml.ml
@@ -1065,3 +1065,8 @@ module Make:
   functor (I: Interface.S) ->
   functor (_: Transport.S with type payload = I.data Payload.t) ->
   S
+
+(* #647: missing space for pattern matching of constructor holding list *)
+let _ =
+  match foo with
+  | Bar ["baz"] -> qux