diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-06-28 13:34:11 +0200 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-06-28 13:34:11 +0200 |
| commit | ef2b0cf761b6281a6a728aacb6ac0ec91fad33c8 (patch) | |
| tree | fbd4aa4679c899d9e7f68ea596c3038a5276ca8e /src | |
| parent | 9414a730d2c8f4a5efffe9396fbbb2a5d10c15c0 (diff) | |
| download | libguestfs-ef2b0cf761b6281a6a728aacb6ac0ec91fad33c8.tar.gz libguestfs-ef2b0cf761b6281a6a728aacb6ac0ec91fad33c8.tar.xz libguestfs-ef2b0cf761b6281a6a728aacb6ac0ec91fad33c8.zip | |
Haskell bindings: Int and Int64 return types.
Diffstat (limited to 'src')
| -rwxr-xr-x | src/generator.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/generator.ml b/src/generator.ml index 73ba813e..9c0632ef 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -7265,10 +7265,10 @@ and generate_haskell_hs () = *) let can_generate style = match style with - | RErr, _ -> true - | RBool _, _ + | RErr, _ | RInt _, _ - | RInt64 _, _ + | RInt64 _, _ -> true + | RBool _, _ | RConstString _, _ | RString _, _ | RStringList _, _ |