From 7a121b63e2bc1e942dd68a7b4976e83fde7d286e Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 7 Mar 2024 06:14:00 +0100 Subject: chore: fix parsing special characters --- src/Process/Shell.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Process/Shell.hs') diff --git a/src/Process/Shell.hs b/src/Process/Shell.hs index 6df6a4f..4b26512 100644 --- a/src/Process/Shell.hs +++ b/src/Process/Shell.hs @@ -142,7 +142,9 @@ sh = QuasiQuoter quoteExp undefined undefined undefined <* string "}'" ), do - Lit <$> takeWhile1P Nothing ((&&) <$> (/= '#') <*> (/= '\'')) + Lit <$> takeWhile1P Nothing ((&&) <$> (/= '#') <*> (/= '\'')), + do + Lit . (: []) <$> satisfy ((||) <$> (== '\'') <*> (== '#')) ] makeExp exprs = do -- cgit v1.2.3