From 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 15:27:00 -0700 Subject: replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE Signed-off-by: Sean Whitton --- src/data/pgp.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/data') diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index 90e046b..ef258d3 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -54,8 +54,7 @@ (handler-case (safe-read-from-string (run-program - (escape-sh-command (list "gpg" "--decrypt" (unix-namestring location))) - :output :string)) + (sh-escape (list "gpg" "--decrypt" location)) :output :string)) (subprocess-error (error) (missing-data-source "While attempt to decrypt, gpg exited with ~A" (uiop:subprocess-error-code error))))) -- cgit v1.2.3