From 71b11a70d8aaed33c5ec3d881f14fd5af567d5bf Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 23 Jan 2025 22:26:35 +0300 Subject: [PATCH] string literal escaping --- miscellaneous/fuzzy-parse/src/Data/Text/Fuzzy/SExp.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/miscellaneous/fuzzy-parse/src/Data/Text/Fuzzy/SExp.hs b/miscellaneous/fuzzy-parse/src/Data/Text/Fuzzy/SExp.hs index e4127a5c..9c6050a9 100644 --- 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