Fix as indentation

crates/compiler/fmt/src/annotation.rs

@@ -365,18 +365,24 @@ fn fmt_ty_ann(
                 buf.push('(')
             }
 
+            buf.indent(indent);
+            let lhs_indent = buf.cur_line_indent();
             lhs.value
                 .format_with_options(buf, Parens::InAsPattern, Newlines::No, indent);
             buf.spaces(1);
             format_spaces(buf, spaces, newlines, indent);
-            buf.indent(indent);
+            buf.indent(lhs_indent + INDENT);
             buf.push_str("as");
             buf.spaces(1);
             buf.push_str(name.value);
             for var in *vars {
                 buf.spaces(1);
-                var.value
+                var.value.format_with_options(
-                    .format_with_options(buf, Parens::NotNeeded, Newlines::No, indent);
+                    buf,
+                    Parens::NotNeeded,
+                    Newlines::No,
+                    lhs_indent + INDENT,
+                );
             }
 
             if write_parens {

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

@@ -0,0 +1,3 @@
+e : A #
+    as H
+n

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

@@ -0,0 +1,55 @@
+@0-13 SpaceAfter(
+    Defs(
+        Defs {
+            tags: [
+                EitherIndex(2147483648),
+            ],
+            regions: [
+                @0-11,
+            ],
+            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: [
+                Annotation(
+                    @0-1 Identifier {
+                        ident: "e",
+                    },
+                    @2-0 As(
+                        @2-3 Apply(
+                            "",
+                            "A",
+                            [],
+                        ),
+                        [
+                            LineComment(
+                                "",
+                            ),
+                        ],
+                        TypeHeader {
+                            name: @10-11 "H",
+                            vars: [],
+                        },
+                    ),
+                ),
+            ],
+        },
+        @12-13 SpaceBefore(
+            Var {
+                module_name: "",
+                ident: "n",
+            },
+            [
+                Newline,
+            ],
+        ),
+    ),
+    [
+        Newline,
+    ],
+)

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

@@ -0,0 +1,3 @@
+e:A#
+  as H
+n

crates/compiler/test_syntax/tests/test_snapshots.rs

@@ -298,6 +298,7 @@ mod test_snapshots {
         pass/annotated_tag_destructure.expr,
         pass/annotated_tuple_destructure.expr,
         pass/annotation_apply_newlines.expr,
+        pass/annotation_comment_before_as.expr,
         pass/annotation_comment_before_colon.expr,
         pass/annotation_double_as.expr,
         pass/annotation_tag_parens_comment.expr,