Missing space for pattern matching of constructor holding list

[Niols]

As of 48659c7, Topiary formats

match foo with
| Bar ["baz"] -> qux

as

match foo with
| Bar["baz"] -> qux

I would expect the space after the constructor to be preserved.

$ nix run github:tweag/topiary/48659c7 -- format -l ocaml
match foo with
| Bar ["baz"] -> qux
^D