1 files changed, 7 insertions, 0 deletions
diff --git a/app/Process.hs b/app/Process.hs
index 39132d4..ecc9cd3 100644
--- a/app/Process.hs
+++ b/app/Process.hs
@@ -23,3 +23,10 @@ sh_ proc = do
   if exitCode == ExitSuccess
     then pure ()
     else throwIO $ ProcessException (show proc) exitCode err
+
+quote :: String -> String
+quote s = "'" ++ escape s ++ "'"
+  where
+    escape [] = []
+    escape ('\'' : cs) = '\'' : '\\' : '\'' : '\'' : escape cs
+    escape (c : cs) = c : escape cs