summaryrefslogtreecommitdiff
path: root/Pancake/Rendering.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Pancake/Rendering.hs')
-rw-r--r--Pancake/Rendering.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index 112bbbb..b5fd717 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -204,8 +204,7 @@ storeNote ro = do
-- | Stores text lines.
storeLines :: [StyledLine] -> Renderer ()
storeLines l = do
- let newlines = sum $ map (length . filter (== '\n') . unstyled) l
- modify (\s -> s { lineNumber = lineNumber s + length l + newlines })
+ modify (\s -> s { lineNumber = lineNumber s + length l })
tell $ map RLine l
-- | Stores attributes (identifier and line number).