diff options
Diffstat (limited to 'src/Process/Shell.hs')
| -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 |