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

derivations: Add a nicer printer. 

* guix/derivations.scm (<derivation>): Add a printer.
This commit is contained in:
Ludovic Courtès 2013-09-18 11:10:02 +02:00
parent 6a446d5680
commit 07c86312ca
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/derivations.scm
View File

@ -19,6 +19,7 @@
(define-module (guix derivations) (define-module (guix derivations)
#: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-26) #:use-module (srfi srfi-26)
#:use-module (rnrs io ports) #:use-module (rnrs io ports)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
@ -97,6 +98,17 @@
(path derivation-input-path) ; store path (path derivation-input-path) ; store path
(sub-derivations derivation-input-sub-derivations)) ; list of strings (sub-derivations derivation-input-sub-derivations)) ; list of strings
(set-record-type-printer! <derivation>
(lambda (drv port)
(format port "#<derivation ~a => ~a ~a>"
(derivation-file-name drv)
(string-join
(map (match-lambda
((_ . output)
(derivation-output-path output)))
(derivation-outputs drv)))
(number->string (object-address drv) 16))))
(define (fixed-output-derivation? drv) (define (fixed-output-derivation? drv)
"Return #t if DRV is a fixed-output derivation, such as the result of a "Return #t if DRV is a fixed-output derivation, such as the result of a
download with a fixed hash (aka. `fetchurl')." download with a fixed hash (aka. `fetchurl')."