Fix bug in record layouting causing overflows

src-literatetests/15-regressions.blt

@@ -363,11 +363,10 @@ samples = (SV.unpackaaaaadat) <&> \f ->
 #test recordupd-singleline-bug
 
 runBrittany tabSize text = do
-  let
+  let config' = staticDefaultConfig
-    config' = staticDefaultConfig
       config  = config'
-      { _conf_layout  = (_conf_layout config') { _lconfig_indentAmount = coerce
+        { _conf_layout  = (_conf_layout config')
-                                                 tabSize
+                            { _lconfig_indentAmount = coerce tabSize
                             }
         , _conf_forward = forwardOptionsSyntaxExtsEnabled
         }
@@ -860,3 +859,13 @@ xeoeqibIaib
         ]
        m
        ()
+
+#test recordupd-overflow-bad-multiline-spacing
+
+createRedirectedProcess processConfig = do
+  let redirectedProc = (_processConfig_inner processConfig)
+        { std_in  = CreatePipe
+        , std_out = CreatePipe
+        , std_err = CreatePipe
+        }
+  foo

src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs

@@ -1226,7 +1226,7 @@ recordExpression dotdot indentPolicy lexpr nameDoc rFs@(rF1:rFr) = do
     --           }
     addAlternativeCond (indentPolicy == IndentPolicyFree)
       $ docSeq
-      [ docNodeAnnKW lexpr Nothing $ appSep nameDoc
+      [ docNodeAnnKW lexpr Nothing $ docForceSingleline $ appSep nameDoc
       , docSetBaseY $ docLines $ let
           line1 = docCols ColRec
             [ appSep $ docLit $ Text.pack "{"