diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-06-28 13:27:33 +0200 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-06-28 13:27:33 +0200 |
| commit | 05273da8830f2f10e417115a3981924a8b14228a (patch) | |
| tree | 5beac9330c8949d069d271fd04375e708e4a6c6e /src | |
| parent | ec34c2bfbfcc53eadf823536dc182710e19b48b2 (diff) | |
| download | libguestfs-05273da8830f2f10e417115a3981924a8b14228a.tar.gz libguestfs-05273da8830f2f10e417115a3981924a8b14228a.tar.xz libguestfs-05273da8830f2f10e417115a3981924a8b14228a.zip | |
Haskell bindings: fix boolean arguments.
Diffstat (limited to 'src')
| -rwxr-xr-x | src/generator.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/generator.ml b/src/generator.ml index 07b8ef21..73ba813e 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -7264,11 +7264,8 @@ and generate_haskell_hs () = * at the moment. Please help out! *) let can_generate style = - let check_no_bad_args = - List.for_all (function Bool _ -> false | _ -> true) - in match style with - | RErr, args -> check_no_bad_args args + | RErr, _ -> true | RBool _, _ | RInt _, _ | RInt64 _, _ @@ -7378,7 +7375,7 @@ last_error h = do let args = List.map ( function - | Bool n -> sprintf "(fromIntegral %s)" n + | Bool n -> sprintf "(fromBool %s)" n | Int n -> sprintf "(fromIntegral %s)" n | FileIn n | FileOut n | String n | OptString n | StringList n -> n ) (snd style) in |