From 14531a1eb8431157402ef2c512b623f99a9999a8 Mon Sep 17 00:00:00 2001
From: Yarl Baudig <yarl-baudig@mailoo.org>
Date: Sun, 23 Nov 2025 20:06:33 +0100
Subject: [PATCH] graph: graphml backend: simplification
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

I don't see the necessity of this string-replace-substring/object->string
dance and the result is ill-formed with another node type than package.

* guix/graph.scm (emit-graphml-node): simplfify.
(emit-graphml-edge): simplify.

Change-Id: If7520a9829ad5f6ebcc5357b201ab58d6e43b735
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/graph.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/graph.scm b/guix/graph.scm
index 42288062da0..208560bd6a8 100644
--- a/guix/graph.scm
+++ b/guix/graph.scm
@@ -422,13 +422,13 @@ nodeArray.push(nodes[\"~a\"]);~%"
   (format port "    <node id=\"~a\">
       <data key=\"d0\">~a</data>
     </node>~%"
-          (string-replace-substring (object->string id) "\"" "\\\"")
+          id
           label))
 
 (define (emit-graphml-edge id1 id2 port)
   (format port "    <edge source=\"~a\" target=\"~a\"/>~%"
-          (string-replace-substring (object->string id1) "\"" "\\\"")
-          (string-replace-substring (object->string id2) "\"" "\\\"")))
+          id1
+          id2))
 
 (define %graphml-backend
   (graph-backend "graphml"