diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-10-30 11:23:58 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-10-30 12:32:30 +0000 |
commit | eb185eef2998e7eed1dce6b82e3b4836a3db3ab2 (patch) | |
tree | 33f8a15eea9f9aace3d4b5db3b47f2f9c12d1989 /generator/csharp.ml | |
parent | 72e19deee75317368a211234950fad11b8d381f1 (diff) | |
download | libguestfs-eb185eef2998e7eed1dce6b82e3b4836a3db3ab2.tar.gz libguestfs-eb185eef2998e7eed1dce6b82e3b4836a3db3ab2.tar.xz libguestfs-eb185eef2998e7eed1dce6b82e3b4836a3db3ab2.zip |
generator: Use an OCaml struct to store the structs.
This just makes it simpler to add extra fields to each struct.
This is code motion.
Diffstat (limited to 'generator/csharp.ml')
-rw-r--r-- | generator/csharp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generator/csharp.ml b/generator/csharp.ml index 9f86f48f..803a4a5a 100644 --- a/generator/csharp.ml +++ b/generator/csharp.ml @@ -110,7 +110,7 @@ namespace Guestfs * method names (eg. "class stat" and "stat"). *) List.iter ( - fun (typ, cols) -> + fun { s_name = typ; s_cols = cols } -> pr " [StructLayout (LayoutKind.Sequential)]\n"; pr " public class _%s {\n" typ; List.iter ( |