From a51d1f0f97d01b256c1193a4086a2c44e8ed93f7 Mon Sep 17 00:00:00 2001 From: bguillaum Date: Mon, 6 May 2013 10:58:09 +0000 Subject: [PATCH] fix nodes ordering in conll output git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7905 7838e531-6607-4d57-9587-6c381814729c --- src/grew_graph.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/grew_graph.ml b/src/grew_graph.ml index 3cfd4c5..7570080 100644 --- a/src/grew_graph.ml +++ b/src/grew_graph.ml @@ -716,8 +716,8 @@ module G_graph = struct ) graph.map Gid_map.empty in let buff = Buffer.create 32 in - Gid_map.iter - (fun gid node -> + List.iter + (fun (gid, node) -> let (govs,labs) = List.split (try Gid_map.find gid govs_labs with Not_found -> ["0","root"]) in let fs = G_node.get_fs node in bprintf buff "%d\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t_\t_\n" @@ -730,7 +730,7 @@ module G_graph = struct (String.concat "|" govs) (String.concat "|" labs) ) - graph.map; + snodes; Buffer.contents buff end (* module G_graph *) -- GitLab