update sort and change port to 8000

Author: pfalls-techempower

wai/bench/wai.hs

@@ -12,10 +12,10 @@ import System.Environment (getArgs)
 
 main :: IO ()
 main = do
-    socket <- bindPort 8001 "*"
+    socket <- bindPort 8000 "*"
     [cores, _] <- getArgs
     let run = Warp.runSettingsSocket Warp.defaultSettings
-                { Warp.settingsPort = 8001
+                { Warp.settingsPort = 8000
                 , Warp.settingsHost = "*"
                 , Warp.settingsOnException = const $ return ()
                 } socket app

wai/benchmark_config

@@ -5,7 +5,7 @@
       "setup_file": "setup",
       "json_url": "/json",
       "port": 8001,
-      "sort": 37
+      "sort": 86
     }
   }]
 }