From: pho <pho@cielonegro.org>
Date: Wed, 3 Oct 2007 16:35:41 +0000 (+0900)
Subject: Doc fix
X-Git-Tag: RELEASE-0_2_1~26
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=8515a693765cbd640b669c563fe7e1a34a98acde;p=Lucu.git

Doc fix

darcs-hash:20071003163541-62b54-6516af9c3d7243a8858aed64dc68334fd4e14ea1.gz
---

diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs
index 8e25904..44db0dc 100644
--- a/Network/HTTP/Lucu/Resource.hs
+++ b/Network/HTTP/Lucu/Resource.hs
@@ -199,8 +199,8 @@ getRemoteAddr = do itr <- getInteraction
 
 
 -- |Get the string representation of the address of remote host. If
--- you want a 'Network.Socket.SockAddr' instead of String, use
--- 'getRemoteAddr'.
+-- you want a 'Network.Socket.SockAddr' instead of 'Prelude.String',
+-- use 'getRemoteAddr'.
 getRemoteAddr' :: Resource String
 getRemoteAddr' = do addr <- getRemoteAddr
                     case addr of
diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 9239cba..573b98d 100644
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -140,56 +140,57 @@ doesMeet p sc = let (# num, _ #) = statusCode sc
                   p num
 
 
--- |@'statusCode' sc@ returns a tuple of numeric and textual
+-- |@'statusCode' sc@ returns an unboxed tuple of numeric and textual
 -- representation of @sc@.
 statusCode :: StatusCode -> (# Int, String #)
-statusCode Continue                    = (# 100, "Continue" #)
-statusCode SwitchingProtocols          = (# 101, "Switching Protocols" #)
-statusCode Processing                  = (# 102, "Processing" #)
---
-statusCode Ok                          = (# 200, "OK" #)
-statusCode Created                     = (# 201, "Created" #)
-statusCode Accepted                    = (# 202, "Accepted" #)
+
+statusCode Continue                    = (# 100, "Continue"                      #)
+statusCode SwitchingProtocols          = (# 101, "Switching Protocols"           #)
+statusCode Processing                  = (# 102, "Processing"                    #)
+
+statusCode Ok                          = (# 200, "OK"                            #)
+statusCode Created                     = (# 201, "Created"                       #)
+statusCode Accepted                    = (# 202, "Accepted"                      #)
 statusCode NonAuthoritativeInformation = (# 203, "Non Authoritative Information" #)
-statusCode NoContent                   = (# 204, "No Content" #)
-statusCode ResetContent                = (# 205, "Reset Content" #)
-statusCode PartialContent              = (# 206, "Partial Content" #)
-statusCode MultiStatus                 = (# 207, "Multi Status" #)
---
-statusCode MultipleChoices             = (# 300, "Multiple Choices" #)
-statusCode MovedPermanently            = (# 301, "Moved Permanently" #)
-statusCode Found                       = (# 302, "Found" #)
-statusCode SeeOther                    = (# 303, "See Other" #)
-statusCode NotModified                 = (# 304, "Not Modified" #)
-statusCode UseProxy                    = (# 305, "Use Proxy" #)
-statusCode TemporaryRedirect           = (# 306, "Temporary Redirect" #)
---
-statusCode BadRequest                  = (# 400, "Bad Request" #)
-statusCode Unauthorized                = (# 401, "Unauthorized" #)
-statusCode PaymentRequired             = (# 402, "Payment Required" #)
-statusCode Forbidden                   = (# 403, "Forbidden" #)
-statusCode NotFound                    = (# 404, "Not Found" #)
-statusCode MethodNotAllowed            = (# 405, "Method Not Allowed" #)
-statusCode NotAcceptable               = (# 406, "Not Acceptable" #)
+statusCode NoContent                   = (# 204, "No Content"                    #)
+statusCode ResetContent                = (# 205, "Reset Content"                 #)
+statusCode PartialContent              = (# 206, "Partial Content"               #)
+statusCode MultiStatus                 = (# 207, "Multi Status"                  #)
+
+statusCode MultipleChoices             = (# 300, "Multiple Choices"              #)
+statusCode MovedPermanently            = (# 301, "Moved Permanently"             #)
+statusCode Found                       = (# 302, "Found"                         #)
+statusCode SeeOther                    = (# 303, "See Other"                     #)
+statusCode NotModified                 = (# 304, "Not Modified"                  #)
+statusCode UseProxy                    = (# 305, "Use Proxy"                     #)
+statusCode TemporaryRedirect           = (# 306, "Temporary Redirect"            #)
+
+statusCode BadRequest                  = (# 400, "Bad Request"                   #)
+statusCode Unauthorized                = (# 401, "Unauthorized"                  #)
+statusCode PaymentRequired             = (# 402, "Payment Required"              #)
+statusCode Forbidden                   = (# 403, "Forbidden"                     #)
+statusCode NotFound                    = (# 404, "Not Found"                     #)
+statusCode MethodNotAllowed            = (# 405, "Method Not Allowed"            #)
+statusCode NotAcceptable               = (# 406, "Not Acceptable"                #)
 statusCode ProxyAuthenticationRequired = (# 407, "Proxy Authentication Required" #)
-statusCode RequestTimeout              = (# 408, "Request Timeout" #)
-statusCode Conflict                    = (# 409, "Conflict" #)
-statusCode Gone                        = (# 410, "Gone" #)
-statusCode LengthRequired              = (# 411, "Length Required" #)
-statusCode PreconditionFailed          = (# 412, "Precondition Failed" #)
-statusCode RequestEntityTooLarge       = (# 413, "Request Entity Too Large" #)
-statusCode RequestURITooLarge          = (# 414, "Request URI Too Large" #)
-statusCode UnsupportedMediaType        = (# 415, "Unsupported Media Type" #)
+statusCode RequestTimeout              = (# 408, "Request Timeout"               #)
+statusCode Conflict                    = (# 409, "Conflict"                      #)
+statusCode Gone                        = (# 410, "Gone"                          #)
+statusCode LengthRequired              = (# 411, "Length Required"               #)
+statusCode PreconditionFailed          = (# 412, "Precondition Failed"           #)
+statusCode RequestEntityTooLarge       = (# 413, "Request Entity Too Large"      #)
+statusCode RequestURITooLarge          = (# 414, "Request URI Too Large"         #)
+statusCode UnsupportedMediaType        = (# 415, "Unsupported Media Type"        #)
 statusCode RequestRangeNotSatisfiable  = (# 416, "Request Range Not Satisfiable" #)
-statusCode ExpectationFailed           = (# 417, "Expectation Failed" #)
-statusCode UnprocessableEntitiy        = (# 422, "Unprocessable Entity" #)
-statusCode Locked                      = (# 423, "Locked" #)
-statusCode FailedDependency            = (# 424, "Failed Dependency" #)
---
-statusCode InternalServerError         = (# 500, "Internal Server Error" #)
-statusCode NotImplemented              = (# 501, "Not Implemented" #)
-statusCode BadGateway                  = (# 502, "Bad Gateway" #)
-statusCode ServiceUnavailable          = (# 503, "Service Unavailable" #)
-statusCode GatewayTimeout              = (# 504, "Gateway Timeout" #)
-statusCode HttpVersionNotSupported     = (# 505, "HTTP Version Not Supported" #)
-statusCode InsufficientStorage         = (# 507, "Insufficient Storage" #)
\ No newline at end of file
+statusCode ExpectationFailed           = (# 417, "Expectation Failed"            #)
+statusCode UnprocessableEntitiy        = (# 422, "Unprocessable Entity"          #)
+statusCode Locked                      = (# 423, "Locked"                        #)
+statusCode FailedDependency            = (# 424, "Failed Dependency"             #)
+
+statusCode InternalServerError         = (# 500, "Internal Server Error"         #)
+statusCode NotImplemented              = (# 501, "Not Implemented"               #)
+statusCode BadGateway                  = (# 502, "Bad Gateway"                   #)
+statusCode ServiceUnavailable          = (# 503, "Service Unavailable"           #)
+statusCode GatewayTimeout              = (# 504, "Gateway Timeout"               #)
+statusCode HttpVersionNotSupported     = (# 505, "HTTP Version Not Supported"    #)
+statusCode InsufficientStorage         = (# 507, "Insufficient Storage"          #)
\ No newline at end of file