~ruther/guix-local

fc1ee095789641cdfe67c65ca8988ef34d921288 — Ludovic Courtès 11 years ago 87bafa0
pk-crypto: Improve documentation of 'key-type'.

* guix/pk-crypto.scm (key-type): Improve docstring.
1 files changed, 2 insertions(+), 2 deletions(-)

M guix/pk-crypto.scm
M guix/pk-crypto.scm => guix/pk-crypto.scm +2 -2
@@ 251,8 251,8 @@ must be a symbol: 'dsa, 'ecc, or 'rsa."
           (bytevector->base16-string bv))))

(define (key-type sexp)
  "Return a symbol denoting the type of key representing by SEXP--e.g., 'rsa',
'ecc'--or #f if SEXP does not denote a valid key."
  "Return a symbol denoting the type of public or private key represented by
SEXP--e.g., 'rsa', 'ecc'--or #f if SEXP does not denote a valid key."
  (case (canonical-sexp-nth-data sexp 0)
    ((public-key private-key)
     (canonical-sexp-nth-data (canonical-sexp-nth sexp 1) 0))