Browse Source

update sort and change port to 8000

Patrick Falls 12 years ago
parent
commit
0baab79fc6
2 changed files with 3 additions and 3 deletions
  1. 2 2
      wai/bench/wai.hs
  2. 1 1
      wai/benchmark_config

+ 2 - 2
wai/bench/wai.hs

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

+ 1 - 1
wai/benchmark_config

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