From 6848de85b8bc94910842fc4c4bfa72c250d4b7ab Mon Sep 17 00:00:00 2001
From: Roger Meier <roger@apache.org>
Date: Fri, 30 May 2014 03:03:09 +0200
Subject: [PATCH] THRIFT-2543 Generated enum type in haskell should be
 qualified

Client: Haskell
Patch: Zejun Wu
---
 compiler/cpp/src/generate/t_hs_generator.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cpp/src/generate/t_hs_generator.cc b/compiler/cpp/src/generate/t_hs_generator.cc
index d52088b4..7a1b505f 100644
--- a/compiler/cpp/src/generate/t_hs_generator.cc
+++ b/compiler/cpp/src/generate/t_hs_generator.cc
@@ -1482,7 +1482,7 @@ string t_hs_generator::render_hs_type(t_type* type, bool needs_parens) {
     }
 
   } else if (type->is_enum()) {
-    return capitalize(((t_enum*)type)->get_name());
+    return type_name((t_enum*)type);
 
   } else if (type->is_struct() || type->is_xception()) {
     return type_name((t_struct*)type);
-- 
2.17.1