diff options
| author | defanor <defanor@uberspace.net> | 2017-12-22 08:36:38 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-12-22 08:36:38 +0300 |
| commit | aecf9cf8449d8f28b40af1295883c38a8cf2db25 (patch) | |
| tree | 2046abdfdafad4f796f08c480351574d16b8e985 | |
| parent | 14468d50a6b22c67e656cd2b2a5fb4c7dad692b2 (diff) | |
Revert "Handle newlines in storeLines"
That wasn't a proper fix, and may lead to additional issues.
This reverts commit 14468d50a6b22c67e656cd2b2a5fb4c7dad692b2.
| -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). |