@@ -39,14 +39,13 @@ hServer = "Server"
3939----------------------------------------------------------------
4040
4141-- | Error types for bad 'Request'.
42−data InvalidRequest =
43− NotEnoughLines [String]
44− | BadFirstLine String
45− | NonHttp
46− | IncompleteHeaders
47− | ConnectionClosedByPeer
48− | OverLargeHeader
49− deriving (Eq, Show, Typeable)
42+data InvalidRequest = NotEnoughLines [String]
43+ | BadFirstLine String
44+ | NonHttp
45+ | IncompleteHeaders
46+ | ConnectionClosedByPeer
47+ | OverLargeHeader
48+ deriving (Eq, Show, Typeable)
5049
5150instance Exception InvalidRequest
5251