ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 04:29:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

graph: Use absolute file name canonicalization.

Browse source 
* guix/scripts/graph.scm (guix-graph): Wrap in 'with-fluids'.
This commit is contained in:
Ludovic Courtès 2016-05-19 23:24:50 +02:00
parent 3c9a7185e4
commit 3cabdead6f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
guix/scripts/graph.scm
View file

@ -356,15 +356,18 @@ (define (guix-graph . args)
(_ #f)) (_ #f))
opts))) opts)))
(with-store store (with-store store
(run-with-store store ;; Ask for absolute file names so that .drv file names passed from the
;; XXX: Since grafting can trigger unsolicited builds, disable it. ;; user to 'read-derivation' are absolute when it returns.
(mlet %store-monad ((_ (set-grafting #f)) (with-fluids ((%file-port-name-canonicalization 'absolute))
(nodes (mapm %store-monad (run-with-store store
(node-type-convert type) ;; XXX: Since grafting can trigger unsolicited builds, disable it.
packages))) (mlet %store-monad ((_ (set-grafting #f))
(export-graph (concatenate nodes) (nodes (mapm %store-monad
(current-output-port) (node-type-convert type)
#:node-type type)))))) packages)))
(export-graph (concatenate nodes)
(current-output-port)
#:node-type type)))))))
#t) #t)
;;; graph.scm ends here ;;; graph.scm ends here