From beebade8740169dc03422df40571f9553bb8eb76 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 28 Dec 2012 19:59:31 +0000
Subject: [PATCH] haskell: Enable RBool in generator.

---
 generator/haskell.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generator/haskell.ml b/generator/haskell.ml
index e428e81f1..49581d526 100644
--- a/generator/haskell.ml
+++ b/generator/haskell.ml
@@ -39,8 +39,8 @@ let rec generate_haskell_hs () =
     | _, _, (_::_) -> false (* no optional args yet *)
     | RErr, _, []
     | RInt _, _, []
-    | RInt64 _, _, [] -> true
-    | RBool _, _, []
+    | RInt64 _, _, []
+    | RBool _, _, [] -> true
     | RConstString _, _, []
     | RConstOptString _, _, []
     | RString _, _, []