string literal escaping

2025-01-23 22:26:35 +03:00 · 2025-01-23 22:26:35 +03:00 · 71b11a70d8
parent dcd13663d9
commit 71b11a70d8
1 changed files with 1 additions and 0 deletions
--- a/miscellaneous/fuzzy-parse/src/Data/Text/Fuzzy/SExp.hs
+++ b/miscellaneous/fuzzy-parse/src/Data/Text/Fuzzy/SExp.hs
@ -184,6 +184,7 @@ tokenizeSexp txt =  do
                            <> punct ",`'{}()[]\n"
                            <> sqq
                            <> uw
+                            <> esc
  tokenize spec txt

 runSexpM :: Monad m => SExpM m a -> m a