diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 12:11:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 16:14:52 -0700 |
| commit | 3a13e374169586f53a20a52f3584b342626792db (patch) | |
| tree | 388fc3188b2e9785ae462e3472c09a953f6ea14a /src/data | |
| parent | ec0fec647cac2e62056b368f95bf73bda82a5738 (diff) | |
| download | consfigurator-3a13e374169586f53a20a52f3584b342626792db.tar.gz | |
simplify definition of MISSING-DATA-SOURCE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/data')
| -rw-r--r-- | src/data/pgp.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/data/pgp.lisp b/src/data/pgp.lisp index a6b9339..05ac255 100644 --- a/src/data/pgp.lisp +++ b/src/data/pgp.lisp @@ -57,9 +57,8 @@ (escape-sh-command (list "gpg" "--decrypt" (unix-namestring location))) :output :string)) (subprocess-error (error) - (error 'missing-data-source - :text (format nil "While attempt to decrypt, gpg exited with ~A" - (uiop:subprocess-error-code error)))))) + (missing-data-source "While attempt to decrypt, gpg exited with ~A" + (uiop:subprocess-error-code error))))) (defun put-store (location data) (run-program (list "gpg" "--encrypt") |