Apply self-formatting to alignment helpers and tests

Bringing CodePrinter.fs and the new Agrico test files in line with the
fork's CheckFormat stage.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

Author: randrag

src/Fantomas.Core.Tests/Agrico/AgricoMatchArrowAlignmentTests.fs

@@ -36,7 +36,8 @@ let f x =
     | LongCaseName -> 3
     | VeryLongCaseName -> 4
 """
-        { config with MatchArrowAlignment = true }
+        { config with
+            MatchArrowAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -57,7 +58,8 @@ let f x =
     match x with
     | A -> 1
 """
-        { config with MatchArrowAlignment = true }
+        { config with
+            MatchArrowAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -79,7 +81,8 @@ let f x =
     | LongCaseName -> 3
     | C -> 4
 """
-        { config with MatchArrowAlignment = true }
+        { config with
+            MatchArrowAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -132,7 +135,8 @@ let f =
     | Bb -> 2
     | LongCaseName -> 3
 """
-        { config with MatchArrowAlignment = true }
+        { config with
+            MatchArrowAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -156,7 +160,8 @@ let f x =
     | LongCaseName s -> 0
     | C -> 0
 """
-        { config with MatchArrowAlignment = true }
+        { config with
+            MatchArrowAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -178,7 +183,8 @@ let f x =
     | Bb -> 2
     | LongCaseName -> 3
 """
-        { config with MatchArrowAlignment = false }
+        { config with
+            MatchArrowAlignment = false }
     |> prepend newline
     |> should
         equal

src/Fantomas.Core.Tests/Agrico/AgricoUnionCaseAlignmentTests.fs

@@ -34,7 +34,8 @@ type Foo =
     | LongCaseName of bool
     | VeryLongCaseName of obj
 """
-        { config with UnionCaseAlignment = true }
+        { config with
+            UnionCaseAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -80,7 +81,8 @@ type Foo =
     | LongCaseName of bool
     | C of obj
 """
-        { config with UnionCaseAlignment = true }
+        { config with
+            UnionCaseAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -104,7 +106,8 @@ type Foo =
     | A of int
     | Bbb of string
 """
-        { config with UnionCaseAlignment = true }
+        { config with
+            UnionCaseAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -125,7 +128,8 @@ type Foo =
     | LongCaseName
     | VeryLongCaseName
 """
-        { config with UnionCaseAlignment = true }
+        { config with
+            UnionCaseAlignment = true }
     |> prepend newline
     |> should
         equal
@@ -261,7 +265,8 @@ type Foo =
     | LongCaseName of bool
     | VeryLongCaseName of obj
 """
-        { config with UnionCaseAlignment = false }
+        { config with
+            UnionCaseAlignment = false }
     |> prepend newline
     |> should
         equal

src/Fantomas.Core/CodePrinter.fs

@@ -4140,8 +4140,7 @@ let private groupUnionCasesByBlankLines (cases: UnionCaseNode list) : UnionCaseN
 // that have `of`. Cases without `of` are skipped — they don't influence
 // the alignment column. Returns 0 if no case in the group has `of`.
 let private unionCaseGroupWidthTarget (group: UnionCaseNode list) : int =
-    let widths =
-        group |> List.filter unionCaseHasOf |> List.map unionCaseIdentWidth
+    let widths = group |> List.filter unionCaseHasOf |> List.map unionCaseIdentWidth
 
     if List.isEmpty widths then 0 else List.max widths
 
@@ -4187,8 +4186,7 @@ let private genUnionCaseFieldsInlineFirst (fields: FieldNode list) (ctx: Context
         let firstFieldCol = ctx.Column
 
         let renderRest =
-            col sepNone restFields (fun f ->
-                sepNln +> addFixedSpaces firstFieldCol +> !-"* " +> genField f)
+            col sepNone restFields (fun f -> sepNln +> addFixedSpaces firstFieldCol +> !-"* " +> genField f)
 
         (genField firstField +> renderRest) ctx
 
@@ -4310,8 +4308,7 @@ let private clausePrefixWidth (node: MatchClauseNode) (ctx: Context) : int =
         | Some barNode -> genSingleTextNodeWithSpaceSuffix sepSpace barNode
         | None -> sepBar
 
-    let genWhen =
-        optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
+    let genWhen = optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
 
     let prefix = genBar +> genPatInClause node.Pattern +> genWhen
     let dummy = ctx.WithDummy(prefix, keepPageWidth = false)
@@ -4328,17 +4325,12 @@ let private clauseFitsInline (node: MatchClauseNode) (ctx: Context) : bool =
         | Some barNode -> genSingleTextNodeWithSpaceSuffix sepSpace barNode
         | None -> sepBar
 
-    let genWhen =
-        optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
+    let genWhen = optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
 
     let genArrowAndBody =
-        sepSpace
-        +> genSingleTextNode node.Arrow
-        +> sepSpace
-        +> genExpr node.BodyExpr
+        sepSpace +> genSingleTextNode node.Arrow +> sepSpace +> genExpr node.BodyExpr
 
-    let inner =
-        genBar +> genPatInClause node.Pattern +> genWhen +> genArrowAndBody
+    let inner = genBar +> genPatInClause node.Pattern +> genWhen +> genArrowAndBody
 
     let dummy = ctx.WithDummy(inner, keepPageWidth = true)
 
@@ -4354,8 +4346,7 @@ let private genClauseAlignedInline (widthTarget: int) (node: MatchClauseNode) =
         | Some barNode -> genSingleTextNodeWithSpaceSuffix sepSpace barNode
         | None -> sepBar
 
-    let genWhen =
-        optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
+    let genWhen = optSingle (fun e -> sepSpace +> !-"when " +> genExpr e) node.WhenExpr
 
     let genPaddedClause (ctx: Context) =
         let startCol = ctx.Column
@@ -4386,11 +4377,7 @@ let private genMaybeAlignedClauses (cfg: FormatConfig) (clauses: MatchClauseNode
         // recursively re-enter genMaybeAlignedClauses for any nested
         // match — multiplying work exponentially in clause-nesting depth.
         // The dummy run only needs upstream layout for the measurement.
-        if
-            not cfg.MatchArrowAlignment
-            || List.isEmpty clauses
-            || ctx.WriterModel.IsDummy
-        then
+        if not cfg.MatchArrowAlignment || List.isEmpty clauses || ctx.WriterModel.IsDummy then
             let lastIndex = clauses.Length - 1
 
             (coli sepNln clauses (fun idx clause ->