On Tue, Mar 27, 2012 at 04:00:49PM +0100, Matthew Booth wrote:
--- generator/generator_gobject.ml | 37 ++++++++++++++++++++++--------------- 1 files changed, 22 insertions(+), 15 deletions(-)
diff --git a/generator/generator_gobject.ml b/generator/generator_gobject.ml index c1eb6c0..017e860 100644 [...] + let (type_spec, type_init, type_desc) = (match optargt with
You don't need the parens around the return values, nor the parens around match. A more natural way to write this is: let type_spec, type_init, type_desc = match optargt with | OBool n -> (* etc. etc. *) (* last line *) in Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-df lists disk usage of guests without needing to install any software inside the virtual machine. Supports Linux and Windows. http://et.redhat.com/~rjones/virt-df/