diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-03-16 14:42:30 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-03-16 14:42:30 +0000 |
| commit | 14938b46a74467d0e4b1cd076ffd7fcbf06c26eb (patch) | |
| tree | df9277a1e7ac664930a6c0c5e36924db989e0b1b /generator | |
| parent | a43f35f5bb7c40b000083cd8be5cb1f28595a3f1 (diff) | |
| download | libguestfs-14938b46a74467d0e4b1cd076ffd7fcbf06c26eb.tar.gz libguestfs-14938b46a74467d0e4b1cd076ffd7fcbf06c26eb.tar.xz libguestfs-14938b46a74467d0e4b1cd076ffd7fcbf06c26eb.zip | |
generator: Sort camel-case structs.
Diffstat (limited to 'generator')
| -rw-r--r-- | generator/generator_structs.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generator/generator_structs.ml b/generator/generator_structs.ml index b894acec..61228a4b 100644 --- a/generator/generator_structs.ml +++ b/generator/generator_structs.ml @@ -230,6 +230,7 @@ let camel_structs = [ "application", "Application"; "isoinfo", "ISOInfo"; ] +let camel_structs = List.sort (fun (_,a) (_,b) -> compare a b) camel_structs let camel_name_of_struct typ = try List.assoc typ camel_structs |