diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-17 23:49:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-17 23:49:35 +0100 |
| commit | 1cbfce16691327bd309d6b03d8cbe3aef38e57bf (patch) | |
| tree | ca3cbe260d4c535e21003631aa54022c69deaf1b | |
| parent | d0a850698a947ac5c59c99980391a12abad82385 (diff) | |
| download | guix-1cbfce16691327bd309d6b03d8cbe3aef38e57bf.tar.gz | |
guix archive: Generate curve Ed25519 keys by default.
* guix/scripts/archive.scm (%options) <generate-key>: Default to curve Ed25519. Suggested by Christian Grothoff <grothoff@in.tum.de>.
| -rw-r--r-- | guix/scripts/archive.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/archive.scm b/guix/scripts/archive.scm index f513f33dd4..0e67321026 100644 --- a/guix/scripts/archive.scm +++ b/guix/scripts/archive.scm @@ -110,9 +110,12 @@ Export/import one or more packages from/to the store.\n")) (lambda (opt name arg result) (catch 'gcry-error (lambda () + ;; XXX: Curve25519 was actually introduced in + ;; libgcrypt 1.6.0. (let ((params (string->canonical-sexp - (or arg "(genkey (rsa (nbits 4:4096)))")))) + (or arg "\ + (genkey (ecdsa (curve Ed25519) (flags rfc6979)))")))) (alist-cons 'generate-key params result))) (lambda (key err) (leave (_ "invalid key generation parameters: ~a: ~a~%") |