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