1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00

graph: Backend must have name and description.

* guix/graph.scm (<graph-backend>): Add fields "name" and "description".
(%graphviz-backend): Provide values for name and description.
(export-graph): Ignore name and description when matching backends.
(graph-backend-name, graph-backend-description): New procedures.
* tests/graph.scm (make-recording-backend): Initialize name and
description fields of test graph-backend.
This commit is contained in:
Ricardo Wurmus
2016-10-20 08:47:03 +02:00
parent 089f385a21
commit 51377437a1
2 changed files with 15 additions and 8 deletions

View File

@@ -57,7 +57,8 @@ edges."
(define (return)
(values (reverse nodes) (reverse edges)))
(values (graph-backend (const #t) (const #t)
(values (graph-backend "test" "This is the test backend."
(const #t) (const #t)
record-node record-edge)
return)))