From ea550b401afc4aae3a76fa5a7734c4816862978b Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Mon, 24 Apr 2023 15:41:32 +0000 Subject: [PATCH] Respect newlines after block-comments --- .../Language/Haskell/Brittany/Internal/S4_WriteBriDoc.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/library/Language/Haskell/Brittany/Internal/S4_WriteBriDoc.hs b/source/library/Language/Haskell/Brittany/Internal/S4_WriteBriDoc.hs index 76768db..cb7a597 100644 --- a/source/library/Language/Haskell/Brittany/Internal/S4_WriteBriDoc.hs +++ b/source/library/Language/Haskell/Brittany/Internal/S4_WriteBriDoc.hs @@ -289,7 +289,7 @@ layoutBriDocM = \case SameLine{} -> _lstate_plannedSpace s DifferentLine n _ -> case _lstate_plannedSpace s of PlannedNone -> PlannedNone - PlannedSameline i -> PlannedSameline i + PlannedSameline i -> PlannedDelta n (_lstate_curY s + i) PlannedNewline{} -> PlannedNewline n PlannedDelta{} -> PlannedNewline n }