Skip to content

Commit 3b8c48a

Browse files
committed
remove extra space in padding line
1 parent 7e90803 commit 3b8c48a

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/Errata/Internal/Render.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -106,7 +106,8 @@ renderSourceLines slines (Block {..}) lspans = unsplit "\n" sourceLines
106106

107107
-- The resulting source lines.
108108
-- Extra prefix for padding.
109-
sourceLines = prefix : makeSourceLines 0 [minLine .. maxLine]
109+
sourceLines = mconcat [replicateB padding " ", " ", TB.fromText styleLinePrefix]
110+
: makeSourceLines 0 [minLine .. maxLine]
110111

111112
-- Whether there will be a multiline span.
112113
hasConnMulti = M.size (M.filter (any pointerConnect) pointersGrouped) > 1

0 commit comments

Comments
 (0)