diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-01-24 17:42:39 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-01-28 16:31:38 +0100 |
| commit | 74e667d14912b9243043b43995848d962569a9a1 (patch) | |
| tree | 48bc9d3cc69c836e76e77037d06bf751575a2566 /guix | |
| parent | f3044a4b7b4fd8b51a65c95bca1d22b252863dc9 (diff) | |
| download | guix-patches-74e667d14912b9243043b43995848d962569a9a1.tar guix-patches-74e667d14912b9243043b43995848d962569a9a1.tar.gz | |
packages: Use '@' in package record printers.
* guix/packages.scm <package>: Use '@' in record printer.
* guix/import/cabal.scm <cabal-package>: Likewise
* guix/import/elpa.scm <elpa-package>: Likewise.
* tests/packages.scm: Adapt to it.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/import/cabal.scm | 2 | ||||
| -rw-r--r-- | guix/import/elpa.scm | 2 | ||||
| -rw-r--r-- | guix/packages.scm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/guix/import/cabal.scm b/guix/import/cabal.scm index c20e074e18..09130e4498 100644 --- a/guix/import/cabal.scm +++ b/guix/import/cabal.scm @@ -608,7 +608,7 @@ If #f use the function 'port-filename' to obtain it." (set-record-type-printer! <cabal-package> (lambda (package port) - (format port "#<cabal-package ~a-~a>" + (format port "#<cabal-package ~a@~a>" (cabal-package-name package) (cabal-package-version package)))) diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm index 8c10668293..529de4f232 100644 --- a/guix/import/elpa.scm +++ b/guix/import/elpa.scm @@ -121,7 +121,7 @@ REPO." (set-record-type-printer! <elpa-package> (lambda (package port) - (format port "#<elpa-package ~a-~a>" + (format port "#<elpa-package ~a@~a>" (elpa-package-name package) (elpa-package-version package)))) diff --git a/guix/packages.scm b/guix/packages.scm index 41f3e20c41..6ec168c204 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -278,7 +278,7 @@ name of its URI." (lambda (package port) (let ((loc (package-location package)) (format simple-format)) - (format port "#<package ~a-~a ~a~a>" + (format port "#<package ~a@~a ~a~a>" (package-name package) (package-version package) (if loc |