From fc1ee095789641cdfe67c65ca8988ef34d921288 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 18 Mar 2015 14:36:32 +0100
Subject: [PATCH] pk-crypto: Improve documentation of 'key-type'.

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

diff --git a/guix/pk-crypto.scm b/guix/pk-crypto.scm
index 7306b66922..f90c2e61d5 100644
--- a/guix/pk-crypto.scm
+++ b/guix/pk-crypto.scm
@@ -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))