diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-28 22:49:44 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-28 22:54:13 +0200 |
| commit | ce9bb87a06a440ebb200d2caa7c919805712f0b1 (patch) | |
| tree | 18e3125da187bf65fae1e0e01c3fffd7e130e8e0 | |
| parent | 7e26c15b2f8617840b91f9484f9ae7b329dcb186 (diff) | |
Expand list of operator chars to include colon and others
| -rw-r--r-- | src/Parser/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Parser/Core.hs b/src/Parser/Core.hs index c982319..78fc666 100644 --- a/src/Parser/Core.hs +++ b/src/Parser/Core.hs @@ -422,7 +422,7 @@ osymbol str = void $ try $ (string (TL.pack str) <* notFollowedBy operatorChar) wsymbol str = void $ try $ (string (TL.pack str) <* notFollowedBy wordChar) <* sc operatorChar :: (MonadParsec e s m, Token s ~ Char) => m (Token s) -operatorChar = satisfy $ (`elem` [ '.', '+', '-', '*', '/', '=', '<', '>', '|' ]) +operatorChar = satisfy $ (`elem` [ '!', '%', '&', '*', '+', '-', '.', '/', ':', '<', '=', '>', '?', '@', '^', '|', '~' ]) {-# INLINE operatorChar #-} localState :: TestParser a -> TestParser a |