extract quote to Process and fix quoting quotes

1 files changed, 1 insertions, 9 deletions

diff --git a/app/Main.hs b/app/Main.hs
index bfe634c..9e838c8 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -88,7 +88,7 @@ import Options.Applicative ((<**>))
 import Options.Applicative qualified as O
 import Prettyprinter qualified as P
 import Prettyprinter.Render.Terminal qualified as P
-import Process (sh, sh_)
+import Process (sh, sh_, quote)
 import System.Exit (ExitCode (ExitFailure), exitWith)
 import System.FilePath qualified as F
 import System.Process.Typed qualified as P
@@ -316,11 +316,3 @@ getFiles files =
               )
           )
       )
-  where
-
-quote :: String -> String
-quote s = "'" ++ escape s ++ "'"
-  where
-    escape [] = []
-    escape ('\'' : cs) = '\\' : '\'' : escape cs
-    escape (c : cs) = c : escape cs