Fix indent call in when fmt

crates/compiler/fmt/src/expr.rs

@@ -1328,6 +1328,7 @@ fn fmt_when<'a>(
             guard_expr.format_with_options(buf, Parens::NotNeeded, Newlines::Yes, indent + INDENT);
         }
 
+        buf.indent(indent + INDENT);
         buf.push_str(" ->");
 
         match expr.value {

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

@@ -0,0 +1,3 @@
+when nns is
+    O #
+     -> r

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

@@ -0,0 +1,32 @@
+When(
+    @5-8 Var {
+        module_name: "",
+        ident: "nns",
+    },
+    [
+        WhenBranch {
+            patterns: [
+                @12-13 SpaceBefore(
+                    SpaceAfter(
+                        Tag(
+                            "O",
+                        ),
+                        [
+                            LineComment(
+                                "",
+                            ),
+                        ],
+                    ),
+                    [
+                        Newline,
+                    ],
+                ),
+            ],
+            value: @18-19 Var {
+                module_name: "",
+                ident: "r",
+            },
+            guard: None,
+        },
+    ],
+)

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

@@ -0,0 +1,3 @@
+when nns is
+O#
+ ->r

crates/compiler/test_syntax/tests/test_snapshots.rs

@@ -653,6 +653,7 @@ mod test_snapshots {
         pass/var_minus_two.expr,
         pass/var_then.expr,
         pass/var_when.expr,
+        pass/when_comment_after_pattern.expr,
         pass/when_if_guard.expr,
         pass/when_in_assignment.expr,
         pass/when_in_binops.expr,