Fix placement of comma after implements in pnc apply patterns

crates/compiler/fmt/src/pattern.rs

@@ -563,9 +563,9 @@ pub fn pattern_fmt_apply(
             buf.push_str("(implements)");
         } else {
             fmt_pattern_only(&arg.item, buf, parens, indent_more, arg.item.is_multiline());
-            if use_commas_and_parens && (!is_last_arg || is_multiline) {
+        }
-                buf.push(',');
+        if use_commas_and_parens && (!is_last_arg || is_multiline) {
-            }
+            buf.push(',');
         }
 
         last_after = arg.after;

crates/compiler/test_syntax/tests/snapshots/pass/implements_in_pnc_pattern.expr.formatted.roc

@@ -0,0 +1,2 @@
+g((implements), x) = c
+c

crates/compiler/test_syntax/tests/snapshots/pass/implements_in_pnc_pattern.expr.result-ast

@@ -0,0 +1,53 @@
+@0-19 SpaceAfter(
+    Defs(
+        Defs {
+            tags: [
+                EitherIndex(2147483648),
+            ],
+            regions: [
+                @0-17,
+            ],
+            space_before: [
+                Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
+            ],
+            space_after: [
+                Slice<roc_parse::ast::CommentOrNewline> { start: 0, length: 0 },
+            ],
+            spaces: [],
+            type_defs: [],
+            value_defs: [
+                Body(
+                    @0-15 PncApply(
+                        @0-1 Identifier {
+                            ident: "g",
+                        },
+                        [
+                            @2-12 Identifier {
+                                ident: "implements",
+                            },
+                            @13-14 Identifier {
+                                ident: "x",
+                            },
+                        ],
+                    ),
+                    @16-17 Var {
+                        module_name: "",
+                        ident: "c",
+                    },
+                ),
+            ],
+        },
+        @18-19 SpaceBefore(
+            Var {
+                module_name: "",
+                ident: "c",
+            },
+            [
+                Newline,
+            ],
+        ),
+    ),
+    [
+        Newline,
+    ],
+)

crates/compiler/test_syntax/tests/snapshots/pass/implements_in_pnc_pattern.expr.roc

@@ -0,0 +1,2 @@
+g(implements,x)=c
+c

crates/compiler/test_syntax/tests/test_snapshots.rs

@@ -465,6 +465,7 @@ mod test_snapshots {
         pass/implements_after_comment_with_newline.expr,
         pass/implements_annotation_comment.expr,
         pass/implements_in_pat_after_comment.expr,
+        pass/implements_in_pnc_pattern.expr,
         pass/implements_newline_in_fn_ty.expr,
         pass/implements_newlines_comments.expr,
         pass/implements_not_keyword.expr,