8264d3c · typeable/wai

git.iko.soy/typeable/wai

fixing modularity.

commit8264d3c34e32899f2ced1e313e69a6e8d619880a authorKazu Yamamoto <kazu@iij.ad.jp> dateTue 14 Aug 2012, 16:21 (14 years ago) parent8174ca5

3 files changed+8−5

unifiedsplit

warp/Network/Wai/Handler/Warp/Request.hs+4

@@ -23,6 +23,10 @@ import Network.Wai.Handler.Warp.ReadInt

2323import Network.Wai.Handler.Warp.Types

2424import Prelude hiding (lines)

2525

26+-- FIXME come up with good values here

27+maxTotalHeaderLength :: Int

28+maxTotalHeaderLength = 50 * 1024

29+

2630parseRequest :: Connection -> Port -> SockAddr

2731 -> Source (ResourceT IO) S.ByteString

2832 -> ResourceT IO (Request, IO (ResumableSource (ResourceT IO) ByteString))

warp/Network/Wai/Handler/Warp/Run.hs+4

@@ -30,6 +30,10 @@ import qualified Control.Concurrent.MVar as MV

3030import Network.Socket (withSocketsDo)

3131#endif

3232

33+-- FIXME come up with good values here

34+bytesPerRead :: Int

35+bytesPerRead = 4096

36+

3337socketConnection :: Socket -> Connection

3438socketConnection s = Connection

3539 { connSendMany = Sock.sendMany s

warp/Network/Wai/Handler/Warp/Types.hs−5

@@ -14,11 +14,6 @@ warpVersion = showVersion Paths_warp.version

1414

1515type Port = Int

1616

17−-- FIXME come up with good values here

18−bytesPerRead, maxTotalHeaderLength :: Int

19−bytesPerRead = 4096

20−maxTotalHeaderLength = 50 * 1024

21−

2217data InvalidRequest =

2318 NotEnoughLines [String]

2419 | BadFirstLine String