THRIFT-847 Test Framework harmonization across all languages
THRIFT-847 Test Framework harmonization across all languages
diff --git a/test/hs/TestClient.hs b/test/hs/TestClient.hs
index 2b9254b..03314ed 100644
--- a/test/hs/TestClient.hs
+++ b/test/hs/TestClient.hs
@@ -210,12 +210,12 @@
"--host" : arg : _ -> parseFlags flags opts{ host = arg }
"--transport" : arg : _ -> parseFlags flags opts{ transport = arg }
"--protocol" : arg : _ -> parseFlags flags opts{ protocol = getProtocol arg }
+ "-n" : arg : _ -> parseFlags flags opts{ testLoops = read arg }
"--h" : _ -> Nothing
"--help" : _ -> Nothing
"--ssl" : _ -> parseFlags flags opts{ ssl = True }
"--processor-events" : _ -> parseFlags flags opts
-parseFlags (flag : arg : flags) opts
- | flag == "-n" = parseFlags flags opts{ testLoops = read arg }
+ _ -> Nothing
parseFlags [] opts = Just opts
showHelp :: IO ()