From 51663eab50cbc51a5786c0d55f21de62e9b15c0a Mon Sep 17 00:00:00 2001 From: Fabian Kirchner Date: Fri, 13 Oct 2023 22:20:18 +0200 Subject: extract quote to Process and fix quoting quotes --- app/Main.hs | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'app/Main.hs') 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 -- cgit v1.2.3