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