diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-03-09 16:11:26 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-12 02:29:37 +0100 |
| commit | aef8e4b26da7689ec03ad4a98ef94e833c363c29 (patch) | |
| tree | 87ee9fff9daf64be8072ace7ae58c4a74222d68a /src | |
| parent | 8b9a3b6ef6277a9e99961c62796d963dd88906a7 (diff) | |
chore: drop haskell-src-meta
Diffstat (limited to 'src')
| -rw-r--r-- | src/Process/Shell.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Process/Shell.hs b/src/Process/Shell.hs index 41a15af..2542a2f 100644 --- a/src/Process/Shell.hs +++ b/src/Process/Shell.hs @@ -30,7 +30,6 @@ import Data.Text.Encoding qualified as T import Data.Text.Lazy qualified as LT import Data.Text.Lazy.Encoding qualified as LT import Data.Void -import Language.Haskell.Meta.Parse import Language.Haskell.TH hiding (Type) import Language.Haskell.TH.Quote import System.Process.Typed @@ -135,25 +134,26 @@ sh = QuasiQuoter quoteExp undefined undefined undefined (,) <$> ( many . choice . map try $ [ do - Var False . either fail pure . parseExp + -- TODO Splice arbitrary Haskell expressions + Var False . varE . mkName <$> ( string "#{{" *> takeWhile1P Nothing (/= '}') <* string "}}" ), do - Var True . either fail pure . parseExp + Var True . varE . mkName <$> ( string "'#{{" *> takeWhile1P Nothing (/= '}') <* string "}}'" ), do - Var False . either fail (appE [|pure|] . pure) . parseExp + Var False . appE [|pure|] . varE . mkName <$> ( string "#{" *> takeWhile1P Nothing (/= '}') <* string "}" ), do - Var True . either fail (appE [|pure|] . pure) . parseExp + Var True . appE [|pure|] . varE . mkName <$> ( string "'#{" *> takeWhile1P Nothing (/= '}') <* string "}'" |