nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

packages: Add a printer for <package>. 

* guix/packages.scm (<package>): Add record printer.
This commit is contained in:
Ludovic Courtès 2012-09-01 19:21:06 +02:00
parent aaa848f3af
commit 946b72c924
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/packages.scm
View File

@ -23,6 +23,7 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
#:use-module (srfi srfi-35) #:use-module (srfi srfi-35)
#:export (location #:export (location
@ -164,6 +165,19 @@ representation."
(default (and=> (current-source-location) (default (and=> (current-source-location)
source-properties->location)))) source-properties->location))))
(set-record-type-printer! <package>
(lambda (package port)
(let ((loc (package-location package))
(format simple-format))
(format port "#<package ~a-~a ~a:~a ~a>"
(package-name package)
(package-version package)
(location-file loc)
(location-line loc)
(number->string (object-address
package)
16)))))
;; Error conditions. ;; Error conditions.