From 37c4637bbe6d93103b3682b16511252936f41fc1 Mon Sep 17 00:00:00 2001 From: jinjor Date: Sat, 3 Nov 2018 04:37:09 +0900 Subject: [PATCH] fix bug in chompUntil and chompUntilEndOr --- src/Parser/Advanced.elm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Parser/Advanced.elm b/src/Parser/Advanced.elm index 6af483b..49ab949 100644 --- a/src/Parser/Advanced.elm +++ b/src/Parser/Advanced.elm @@ -893,9 +893,9 @@ chompUntil (Token str expecting) = Bad False (fromInfo newRow newCol expecting s.context) else - Good (s.offset < newOffset) () + Good (s.offset < newOffset + String.length str) () { src = s.src - , offset = newOffset + , offset = newOffset + String.length str , indent = s.indent , context = s.context , row = newRow @@ -913,7 +913,7 @@ chompUntilEndOr str = Elm.Kernel.Parser.findSubString str s.offset s.row s.col s.src adjustedOffset = - if newOffset < 0 then String.length s.src else newOffset + if newOffset < 0 then String.length s.src else newOffset + String.length str in Good (s.offset < adjustedOffset) () { src = s.src