fix format for multi-line record updates

Author: decioferreira

src/Common/Format/Render/Box.elm

@@ -2398,7 +2398,13 @@ formatExpression importInfo (A.At region aexpr) =
 
                 fields_ : List (Src.C2Eol (Src.Pair Name Src.Expr))
                 fields_ =
-                    List.map (Src.c2EolMap (\( ( nameComments, A.At _ name_ ), expr ) -> Src.Pair ( nameComments, name_ ) expr multiline)) fields
+                    List.map
+                        (Src.c2EolMap
+                            (\( ( nameComments, A.At _ name_ ), ( _, A.At exprRegion _ ) as expr ) ->
+                                Src.Pair ( nameComments, name_ ) expr (Src.ForceMultiline (A.isMultiline exprRegion))
+                            )
+                        )
+                        fields
             in
             ( SyntaxSeparated
             , formatRecordLike

src/Common/Format/Render/ElmStructure.elm

@@ -54,9 +54,7 @@ forceableSpaceSepOrStack forceMultiline first rest =
 
 forceableRowOrStack : Bool -> Box -> List Box -> Box
 forceableRowOrStack forceMultiline first rest =
-    case
-        ( forceMultiline, first, Box.allSingles rest )
-    of
+    case ( forceMultiline, first, Box.allSingles rest ) of
         ( False, Box.SingleLine first_, Ok rest_ ) ->
             Box.line <| Box.row (first_ :: rest_)
 

tests/format.test.js

@@ -277,6 +277,7 @@ const examples = [
             }
         },
         { title: "multi-line record", filename: "MultiLineRecordDeclarations", module: { ...defaultModule, declarations: [`recordFn =\n { age = 23\n , name =\n "John"\n }`] } },
+        { title: "multi-line update record", filename: "MultiLineUpdateRecordDeclarations", module: { ...defaultModule, declarations: [`updateRecordFn =\n { record | age = 23\n , name = "John"\n }`] } },
     ]],
     // UNION DECLARATIONS
     ["Union", [
@@ -366,11 +367,6 @@ describe("format", () => {
 });
 
 const generateModule = ({ header, docs, imports, infixes, declarations }) => {
-    //     console.log(`${header}
-    // ${docs}
-    // ${imports.join("\n")}
-    // ${infixes.join("\n")}
-    // ${declarations.join("\n")}`);
     return `${header}
 ${docs}
 ${imports.join("\n")}