diff options
Diffstat (limited to 'Pancake')
-rw-r--r-- | Pancake/Rendering.hs | 3 |
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). |