Respect newlines after block-comments

2023-04-24 15:41:32 +00:00 · 2023-04-24 15:41:32 +00:00 · e11188eb16
parent 556bc896a6
commit e11188eb16
1 changed files with 1 additions and 1 deletions
--- 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
      }