From 4497fa927fc77a41f49ee385af4c35f391cc5a7f Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Fri, 6 Jul 2018 22:57:33 +0200 Subject: [PATCH] Add a comment about one superfluous docSetParSpacing --- .../Haskell/Brittany/Internal/Layouters/Expr.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs index 0aca344..7cbd3c2 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs @@ -177,10 +177,13 @@ layoutExpr lexpr@(L _ expr) = do , -- func argline1 -- arglines -- e.g. - -- func if x - -- then 1 - -- else 2 - docSetParSpacing + -- func Abc + -- { member1 = True + -- , member2 = 13 + -- } + docSetParSpacing -- this is most likely superfluous because + -- this is a sequence of a one-line and a par-space + -- anyways, so it is _always_ par-spaced. $ docAddBaseY BrIndentRegular $ docSeq [ appSep $ docForceSingleline expDoc1