@@ -32,15 +32,15 @@ main = do
3232 defaultMain [
3333 bgroup "requestLine1" [
3434 bench "parseRequestLine3" $ whnf parseRequestLine3 requestLine1
35− , bench "parseRequestLine2" $ parseRequestLine2 requestLine1
36− , bench "parseRequestLine1" $ parseRequestLine1 requestLine1
37− , bench "parseRequestLine0" $ parseRequestLine0 requestLine1
35+ , bench "parseRequestLine2" $ whnfIO $ parseRequestLine2 requestLine1
36+ , bench "parseRequestLine1" $ whnfIO $ parseRequestLine1 requestLine1
37+ , bench "parseRequestLine0" $ whnfIO $ parseRequestLine0 requestLine1
3838 ]
3939 , bgroup "requestLine2" [
4040 bench "parseRequestLine3" $ whnf parseRequestLine3 requestLine2
41− , bench "parseRequestLine2" $ parseRequestLine2 requestLine2
42− , bench "parseRequestLine1" $ parseRequestLine1 requestLine2
43− , bench "parseRequestLine0" $ parseRequestLine0 requestLine2
41+ , bench "parseRequestLine2" $ whnfIO $ parseRequestLine2 requestLine2
42+ , bench "parseRequestLine1" $ whnfIO $ parseRequestLine1 requestLine2
43+ , bench "parseRequestLine0" $ whnfIO $ parseRequestLine0 requestLine2
4444 ]
4545 ]
4646