packages feed

tighttp 0.0.0.6 → 0.0.0.7

raw patch · 2 files changed

+81/−2 lines, 2 files

Files

src/Network/TigHTTP/HttpTypes.hs view
@@ -482,10 +482,37 @@  parseStatusCode :: BS.ByteString -> StatusCode parseStatusCode sc+	| ("100", _) <- BSC.span (not . isSpace) sc = Continue+	| ("101", _) <- BSC.span (not . isSpace) sc = SwitchingProtocols 	| ("200", _) <- BSC.span (not . isSpace) sc = OK+	| ("201", _) <- BSC.span (not . isSpace) sc = Created+	| ("202", _) <- BSC.span (not . isSpace) sc = Accepted+	| ("203", _) <- BSC.span (not . isSpace) sc = NonAuthoritativeInformation+	| ("204", _) <- BSC.span (not . isSpace) sc = NoContent+	| ("205", _) <- BSC.span (not . isSpace) sc = ResetContent+	| ("206", _) <- BSC.span (not . isSpace) sc = PartialContent 	| ("301", _) <- BSC.span (not . isSpace) sc = MovedPermanently 	| ("302", _) <- BSC.span (not . isSpace) sc = Found+	| ("303", _) <- BSC.span (not . isSpace) sc = SeeOther+	| ("304", _) <- BSC.span (not . isSpace) sc = NotModified+	| ("305", _) <- BSC.span (not . isSpace) sc = UseProxy+	| ("307", _) <- BSC.span (not . isSpace) sc = TemporaryRedirect 	| ("400", _) <- BSC.span (not . isSpace) sc = BadRequest+	| ("401", _) <- BSC.span (not . isSpace) sc = Unauthorized+	| ("402", _) <- BSC.span (not . isSpace) sc = PaymentRequired+	| ("403", _) <- BSC.span (not . isSpace) sc = Forbidden+	| ("404", _) <- BSC.span (not . isSpace) sc = NotFound+	| ("405", _) <- BSC.span (not . isSpace) sc = MethodNotAllowed+	| ("406", _) <- BSC.span (not . isSpace) sc = NotAcceptable+	| ("407", _) <- BSC.span (not . isSpace) sc = ProxyAuthenticationRequired+	| ("408", _) <- BSC.span (not . isSpace) sc = RequestTimeout+	| ("409", _) <- BSC.span (not . isSpace) sc = Conflict+	| ("500", _) <- BSC.span (not . isSpace) sc = InternalServerError+	| ("501", _) <- BSC.span (not . isSpace) sc = NotImplemented+	| ("502", _) <- BSC.span (not . isSpace) sc = BadGateway+	| ("503", _) <- BSC.span (not . isSpace) sc = ServiceUnavailable+	| ("504", _) <- BSC.span (not . isSpace) sc = GatewayTimeout+	| ("505", _) <- BSC.span (not . isSpace) sc = HttpVersionNotSupported parseStatusCode sc = error $ "parseStatusCode: bad status code: " ++ BSC.unpack sc  putResponse :: (@@ -538,18 +565,70 @@ 	= Continue 	| SwitchingProtocols 	| OK+	| Created+	| Accepted+	| NonAuthoritativeInformation+	| NoContent+	| ResetContent+	| PartialContent+	| MultipleChoices 	| MovedPermanently 	| Found+	| SeeOther+	| NotModified+	| UseProxy+	| TemporaryRedirect 	| BadRequest+	| Unauthorized+	| PaymentRequired+	| Forbidden+	| NotFound+	| MethodNotAllowed+	| NotAcceptable+	| ProxyAuthenticationRequired+	| RequestTimeout+	| Conflict+	| InternalServerError+	| NotImplemented+	| BadGateway+	| ServiceUnavailable+	| GatewayTimeout+	| HttpVersionNotSupported 	deriving Show  showStatusCode :: StatusCode -> BS.ByteString showStatusCode Continue = "100 Continue" showStatusCode SwitchingProtocols = "101 SwitchingProtocols" showStatusCode OK = "200 OK"+showStatusCode Created = "201 Created"+showStatusCode Accepted = "202 Accepted"+showStatusCode NonAuthoritativeInformation = "203 Non-Authoritative Information"+showStatusCode NoContent = "204 No Content"+showStatusCode ResetContent = "205 Reset Content"+showStatusCode PartialContent = "206 Partial Content"+showStatusCode MultipleChoices = "300 Multiple Choices" showStatusCode MovedPermanently = "301 Moved Permanently" showStatusCode Found = "302 Found"+showStatusCode SeeOther = "303 See Other"+showStatusCode NotModified = "304 Not Modified"+showStatusCode UseProxy = "305 Use Proxy"+showStatusCode TemporaryRedirect = "307 Temporary Redirect" showStatusCode BadRequest = "400 Bad Request"+showStatusCode Unauthorized = "401 Bad Request"+showStatusCode PaymentRequired = "402 Bad Request"+showStatusCode Forbidden = "403 Bad Request"+showStatusCode NotFound = "404 Bad Request"+showStatusCode MethodNotAllowed = "405 Bad Request"+showStatusCode NotAcceptable = "406 Bad Request"+showStatusCode ProxyAuthenticationRequired = "407 Bad Request"+showStatusCode RequestTimeout = "408 Bad Request"+showStatusCode Conflict = "409 Bad Request"+showStatusCode InternalServerError = "500 Internal Server Error"+showStatusCode NotImplemented = "501 Not Implemented"+showStatusCode BadGateway = "502 Bad Gateway"+showStatusCode ServiceUnavailable = "503 Service Unavailable"+showStatusCode GatewayTimeout = "504 Gateway Timeout"+showStatusCode HttpVersionNotSupported = "505 HTTP version Not Supported"  data ContentLength = ContentLength Int deriving Show
tighttp.cabal view
@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		tighttp-version:	0.0.0.6+version:	0.0.0.7 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -101,7 +101,7 @@ source-repository	this     type:	git     location:	git://github.com/YoshikuniJujo/tighttp.git-    tag:	tighttp-0.0.0.6+    tag:	tighttp-0.0.0.7  library     hs-source-dirs:	src