From ef2b0cf761b6281a6a728aacb6ac0ec91fad33c8 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sun, 28 Jun 2009 13:34:11 +0200
Subject: Haskell bindings: Int and Int64 return types.

---
 src/generator.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

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 _, _
-- 
cgit