THRIFT-4955 Haskell test broken due to extension to CompactProtoTestStruct
Client: Haskell
Patch: Jens Geyer
This closes #1872
diff --git a/test/hs/DebugProtoTest_Main.hs b/test/hs/DebugProtoTest_Main.hs
index fb28963..97d4347 100644
--- a/test/hs/DebugProtoTest_Main.hs
+++ b/test/hs/DebugProtoTest_Main.hs
@@ -117,7 +117,11 @@
Types.compactProtoTestStruct_byte_map_map = Map.empty,
Types.compactProtoTestStruct_byte_set_map = Map.empty,
- Types.compactProtoTestStruct_byte_list_map = Map.empty }
+ Types.compactProtoTestStruct_byte_list_map = Map.empty,
+
+ Types.compactProtoTestStruct_field500 = 500,
+ Types.compactProtoTestStruct_field5000 = 5000,
+ Types.compactProtoTestStruct_field20000 = 20000 }
methodWithDefaultArgs _ arg = do
ThriftTestUtils.serverLog $ "Got methodWithDefaultArgs: " ++ show arg