diff options
Diffstat (limited to 'src/Process')
| -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 "}'" |