fix: bad markAsToken application

j-mie6 · Jan 29, 2024 · 8f5fd29 · 8f5fd29
1 parent b0a5bd4
commit 8f5fd29
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,8 @@
 # Revision history for gigaparsec
 
+## 0.2.2.3 -- 2024-01-29
+* Fixed bug where `markAsToken` doesn't apply at the correct offsets
+
 ## 0.2.2.2 -- 2024-01-29
 * Optimised the error system using `DefuncError` and `DefuncHints`.
 * Fixed bugs with amending and token merging.

diff --git a/gigaparsec.cabal b/gigaparsec.cabal
@@ -20,7 +20,7 @@ name:               gigaparsec
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.2.2.2
+version:            0.2.2.3
 
 -- A short (one-line) description of the package.
 synopsis:

diff --git a/src/Text/Gigaparsec/Internal/Errors/DefuncError.hs b/src/Text/Gigaparsec/Internal/Errors/DefuncError.hs
@@ -142,7 +142,7 @@ dislodge by err@(DefuncError k flags pOff uOff errTy)
   where !eBy = entrenchedBy err
 
 markAsLexical :: Word -> DefuncError -> DefuncError
-markAsLexical !off (DefuncError IsVanilla flags pOff uOff errTy) | off == pOff =
+markAsLexical !off (DefuncError IsVanilla flags pOff uOff errTy) | off < pOff =
   DefuncError IsVanilla (setBit flags lexicalBit) pOff uOff errTy
 markAsLexical _ err = err