diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-03-07 06:14:00 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-07 06:14:00 +0100 |
| commit | 7a121b63e2bc1e942dd68a7b4976e83fde7d286e (patch) | |
| tree | dcf2d63326c75975122172538bbf390b889625cf /src/Process | |
| parent | 88e897fa21d0de229700862b11761b8e33752dba (diff) | |
chore: fix parsing special characters
Diffstat (limited to 'src/Process')
| -rw-r--r-- | src/Process/Shell.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |