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 ()
diff --git a/test/hs/TestServer.hs b/test/hs/TestServer.hs
old mode 100644
new mode 100755
index e3f3241..ec3891c
--- a/test/hs/TestServer.hs
+++ b/test/hs/TestServer.hs
@@ -248,12 +248,12 @@
     "--transport" : arg : _ -> parseFlags flags opts{ transport = arg }
     "--protocol" : arg : _ -> parseFlags flags opts{ protocol = getProtocol arg }
     "--workers" : arg : _ -> parseFlags flags opts{ workers = read arg }
+    "-n" : arg : _ -> parseFlags flags opts{ workers = 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{ workers = read arg }
+    _ -> Nothing
 parseFlags [] opts = Just opts
 
 showHelp :: IO ()