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