Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Tweak benchmarks to match recent api

  • Loading branch information...
commit f94ac3fe915a9846f7097b225b1c7174628571dc 1 parent 8af81f0
@imalsogreg imalsogreg authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.