@@ -48,6 +48,7 @@ module Network.Wai
4848 , Status (..)
4949 , status200, statusOK
5050 , status201, statusCreated
51+ , status206, statusPartialContent
5152 , status301, statusMovedPermanently
5253 , status302, statusFound
5354 , status303, statusSeeOther
@@ -160,6 +161,11 @@ status201, statusCreated :: Status
160161status201 = Status 201 $ B8.pack "Created"
161162statusCreated = status201
162163
164+-- | Partial Content
165+status206, statusPartialContent :: Status
166+status206 = Status 206 $ B8.pack "Partial Content"
167+statusPartialContent = status206
168+
163169-- | Moved Permanently
164170status301, statusMovedPermanently :: Status
165171status301 = Status 301 $ B8.pack "Moved Permanently"