From aecf9cf8449d8f28b40af1295883c38a8cf2db25 Mon Sep 17 00:00:00 2001 From: defanor Date: Fri, 22 Dec 2017 08:36:38 +0300 Subject: Revert "Handle newlines in storeLines" That wasn't a proper fix, and may lead to additional issues. This reverts commit 14468d50a6b22c67e656cd2b2a5fb4c7dad692b2. --- Pancake/Rendering.hs | 3 +-- 1 file changed, 1 insertion(+), 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). -- cgit v1.2.3