From aef8e4b26da7689ec03ad4a98ef94e833c363c29 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Sat, 9 Mar 2024 16:11:26 +0100
Subject: chore: drop haskell-src-meta

---
 src/Process/Shell.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Process')

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 "}'"
-- 
cgit v1.2.3