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

graph: Use absolute file name canonicalization. 

* 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 @@ Emit a Graphviz (dot) representation of the dependencies of PACKAGE...\n"))
(_ #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