Commit da806991 authored by bguillaum's avatar bguillaum

alphabetical order in CONLL when there are parallel edges

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8096 7838e531-6607-4d57-9587-6c381814729c
parent 218ef88d
......@@ -726,7 +726,10 @@ module G_graph = struct
then -1
else if l2 <> "" && l2.[0] <> 'I' && l2.[0] <> 'D'
then 1
else compare (String_.to_float g1) (String_.to_float g2)
else
match compare (String_.to_float g1) (String_.to_float g2) with
| 0 -> compare l1 l2
| x -> x
) gov_labs in
let (govs,labs) = List.split sorted_gov_labs in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment