diff options
Diffstat (limited to 'src/data/pgp.lisp')
-rw-r--r-- | src/data/pgp.lisp | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index ef258d3..d0df280 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -51,20 +51,15 @@ (cons #'check #'extract)))) (defun read-store (location) - (handler-case - (safe-read-from-string - (run-program - (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))))) + (safe-read-from-string + (gpg-file-as-string location))) (defun put-store (location data) - (run-program (list "gpg" "--encrypt") - :input (make-string-input-stream - (with-standard-io-syntax - (prin1-to-string data))) - :output (unix-namestring location))) + (gpg '("--encrypt") + :input (make-string-input-stream + (with-standard-io-syntax + (prin1-to-string data))) + :output (unix-namestring location))) (defun data-assoc (iden1 iden2 data) (assoc (cons iden1 iden2) data |