@@ -46,17 +46,17 @@ module Network.Wai
4646 , ResponseHeaders
4747 -- ** Response status code
4848 , Status (..)
49− , status200
50− , status201
51− , status301
52− , status302
53− , status303
54− , status400
55− , status401
56− , status403
57− , status404
58− , status405
59− , status500
49+ , status200, statusOK
50+ , status201, statusCreated
51+ , status301, statusMovedPermanently
52+ , status302, statusFound
53+ , status303, statusSeeOther
54+ , status400, statusBadRequest
55+ , status401, statusUnauthorized
56+ , status403, statusForbidden
57+ , status404, statusNotFound
58+ , status405, statusNotAllowed
59+ , status500, statusServerError
6060 -- * WAI interface
6161 , Request (..)
6262 , Response (..)
@@ -151,48 +151,59 @@ instance Eq Status where
151151 x == y = statusCode x == statusCode y
152152
153153-- | OK
154−status200 :: Status
154+status200, statusOK :: Status
155155status200 = Status 200 $ B8.pack "OK"
156+statusOK = status200
156157
157158-- | Created
158−status201 :: Status
159+status201, statusCreated :: Status
159160status201 = Status 200 $ B8.pack "Created"
161+statusCreated = status201
160162
161163-- | Moved Permanently
162−status301 :: Status
164+status301, statusMovedPermanently :: Status
163165status301 = Status 301 $ B8.pack "Moved Permanently"
166+statusMovedPermanently = status301
164167
165168-- | Found
166−status302 :: Status
169+status302, statusFound :: Status
167170status302 = Status 302 $ B8.pack "Found"
171+statusFound = status302
168172
169173-- | See Other
170−status303 :: Status
174+status303, statusSeeOther :: Status
171175status303 = Status 303 $ B8.pack "See Other"
176+statusSeeOther = status303
172177
173178-- | Bad Request
174−status400 :: Status
179+status400, statusBadRequest :: Status
175180status400 = Status 400 $ B8.pack "Bad Request"
181+statusBadRequest = status400
176182
177183-- | Unauthorized
178−status401 :: Status
184+status401, statusUnauthorized :: Status
179185status401 = Status 401 $ B8.pack "Unauthorized"
186+statusUnauthorized = status401
180187
181188-- | Forbidden
182−status403 :: Status
189+status403, statusForbidden :: Status
183190status403 = Status 403 $ B8.pack "Forbidden"
191+statusForbidden = status403
184192
185193-- | Not Found
186−status404 :: Status
194+status404, statusNotFound :: Status
187195status404 = Status 404 $ B8.pack "Not Found"
196+statusNotFound = status404
188197
189198-- | Method Not Allowed
190−status405 :: Status
199+status405, statusNotAllowed :: Status
191200status405 = Status 405 $ B8.pack "Method Not Allowed"
201+statusNotAllowed = status405
192202
193203-- | Internal Server Error
194−status500 :: Status
204+status500, statusServerError :: Status
195205status500 = Status 500 $ B8.pack "Internal Server Error"
206+statusServerError = status500
196207
197208-- | Information on the request sent by the client. This abstracts away the
198209-- details of the underlying implementation.