Browse files

Updated snap benchmark for 0.3.

  • Loading branch information...
1 parent 2844823 commit 1a3b0d8159732d87aa6706da25e1bc9a41cf36e4 @mightybyte mightybyte committed Dec 28, 2010
Showing with 6 additions and 6 deletions.
  1. +3 −3 snap-bench/snap-bench.cabal
  2. +1 −1 snap-bench/src/file.hs
  3. +1 −1 snap-bench/src/pong.hs
  4. +1 −1 snap-bench/src/table.hs
View
6 snap-bench/snap-bench.cabal
@@ -16,7 +16,7 @@ Executable pong-server
base >= 4,
haskell98,
transformers,
- monads-fd,
+ mtl,
bytestring,
snap-core,
snap-server,
@@ -34,7 +34,7 @@ Executable file-server
base >= 4,
haskell98,
transformers,
- monads-fd,
+ mtl,
bytestring,
snap-core,
snap-server,
@@ -52,7 +52,7 @@ Executable table-server
base >= 4,
haskell98,
transformers,
- monads-fd,
+ mtl,
bytestring,
snap-core,
snap-server,
View
2 snap-bench/src/file.hs
@@ -17,7 +17,7 @@ main = do
let port = case args of
[] -> 3000
p:_ -> read p
- config = setPort port $
+ config = addListen (ListenHttp "0.0.0.0" port) $
setAccessLog Nothing $
defaultConfig
httpServe config site
View
2 snap-bench/src/pong.hs
@@ -17,7 +17,7 @@ main = do
let port = case args of
[] -> 3000
p:_ -> read p
- config = setPort port $
+ config = addListen (ListenHttp "0.0.0.0" port) $
setAccessLog Nothing $
defaultConfig
httpServe config site
View
2 snap-bench/src/table.hs
@@ -42,4 +42,4 @@ main = do
let port = case args of
[] -> 8000
p:_ -> read p
- httpServe (setPort port defaultConfig) tableServer
+ httpServe (addListen (ListenHttp "0.0.0.0" port) defaultConfig) tableServer

0 comments on commit 1a3b0d8

Please sign in to comment.