diff --git a/src-literatetests/15-regressions.blt b/src-literatetests/15-regressions.blt index dbab5b7..e4c1b7c 100644 --- a/src-literatetests/15-regressions.blt +++ b/src-literatetests/15-regressions.blt @@ -363,14 +363,13 @@ samples = (SV.unpackaaaaadat) <&> \f -> #test recordupd-singleline-bug runBrittany tabSize text = do - let - config' = staticDefaultConfig - config = config' - { _conf_layout = (_conf_layout config') { _lconfig_indentAmount = coerce - tabSize - } - , _conf_forward = forwardOptionsSyntaxExtsEnabled - } + let config' = staticDefaultConfig + config = config' + { _conf_layout = (_conf_layout config') + { _lconfig_indentAmount = coerce tabSize + } + , _conf_forward = forwardOptionsSyntaxExtsEnabled + } parsePrintModule config text #test recordupd-singleline-bug-left @@ -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 diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs index 5a45899..bc43fe2 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs +++ b/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 "{"