Skip to content
Browse files

Tweak benchmarks to match recent api

  • Loading branch information...
1 parent 8af81f0 commit f94ac3fe915a9846f7097b225b1c7174628571dc @imalsogreg imalsogreg committed
Showing with 4 additions and 4 deletions.
  1. +1 −1 snap-bench/src/file.hs
  2. +1 −1 snap-bench/src/pong.hs
  3. +2 −2 snap-bench/src/table.hs
View
2 snap-bench/src/file.hs
@@ -4,7 +4,7 @@ import System.Environment
import Control.Applicative
import Control.Monad.Trans
import Snap.Http.Server
-import Snap.Iteratee
+import Snap.Http.Server.Config
import Snap.Core
import Snap.Util.FileServe
View
2 snap-bench/src/pong.hs
@@ -4,7 +4,7 @@ import System.Environment
import Control.Applicative
import Control.Monad.Trans
import Snap.Http.Server
-import Snap.Iteratee
+import Snap.Http.Server.Config
import Snap.Core
import Snap.Util.FileServe
View
4 snap-bench/src/table.hs
@@ -10,7 +10,7 @@ import Control.Monad.Trans
import qualified Data.ByteString.Char8 as BS
import Data.Monoid
import Snap.Http.Server
-import Snap.Iteratee
+import Snap.Http.Server.Config
import Snap.Core
import Snap.Util.FileServe
@@ -53,7 +53,7 @@ tableServer = do
, tableBody 1
, fromByteString "</table></body></html>" ]
-
+
main :: IO ()
main = do
args <- getArgs

0 comments on commit f94ac3f

Please sign in to comment.
Something went wrong with that request. Please try again.