diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-29 14:19:55 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-29 17:34:18 +0000 |
commit | ff01206345e2306cc633db48e0b29eab9077091a (patch) | |
tree | 25c7ee17005dadc9bf4fae3f0873e03a4704f782 /guix/graph.scm | |
parent | ed2545f0fa0e2ad99d5a0c45f532c539b299b9fb (diff) | |
parent | 7c2e67400ffaef8eb6f30ef7126c976ee3d7e36c (diff) | |
download | guix-patches-ff01206345e2306cc633db48e0b29eab9077091a.tar guix-patches-ff01206345e2306cc633db48e0b29eab9077091a.tar.gz |
Merge remote-tracking branch 'origin/master' into core-updates
Diffstat (limited to 'guix/graph.scm')
-rw-r--r-- | guix/graph.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/graph.scm b/guix/graph.scm index b695ca4306..93ff9ef81a 100644 --- a/guix/graph.scm +++ b/guix/graph.scm @@ -142,7 +142,7 @@ typically returned by 'node-edges' or 'node-back-edges'." nodes node-edges)) (define (shortest-path node1 node2 type) - "Return as a monadic value the shorted path, represented as a list, from + "Return as a monadic value the shortest path, represented as a list, from NODE1 to NODE2 of the given TYPE. Return #f when there is no path." (define node-edges (node-type-edges type)) @@ -238,7 +238,7 @@ NODE1 to NODE2 of the given TYPE. Return #f when there is no path." (define (emit-epilogue port) (display "\n}\n" port)) (define (emit-node id label port) - (format port " \"~a\" [label = \"~a\", shape = box, fontname = Helvetica];~%" + (format port " \"~a\" [label = \"~a\", shape = box, fontname = sans];~%" id label)) (define (emit-edge id1 id2 port) (format port " \"~a\" -> \"~a\" [color = ~a];~%" |