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
       }