on master help sign in
Define status206 (PartialContent) which is necessary when streaming (e.g. video).
2bb48bbVincent Hanquez
Network/Wai.hs+6
@@ -48,6 +48,7 @@ module Network.Wai
48 , Status (..)
48 , Status (..)
49 , status200, statusOK
49 , status200, statusOK
50 , status201, statusCreated
50 , status201, statusCreated
51+ , status206, statusPartialContent
51 , status301, statusMovedPermanently
52 , status301, statusMovedPermanently
52 , status302, statusFound
53 , status302, statusFound
53 , status303, statusSeeOther
54 , status303, statusSeeOther
@@ -160,6 +161,11 @@ status201, statusCreated :: Status
160status201 = Status 201 $ B8.pack "Created"
161status201 = Status 201 $ B8.pack "Created"
161statusCreated = status201
162statusCreated = status201
162
163
164+-- | Partial Content
165+status206, statusPartialContent :: Status
166+status206 = Status 206 $ B8.pack "Partial Content"
167+statusPartialContent = status206
168+
163-- | Moved Permanently
169-- | Moved Permanently
164status301, statusMovedPermanently :: Status
170status301, statusMovedPermanently :: Status
165status301 = Status 301 $ B8.pack "Moved Permanently"
171status301 = Status 301 $ B8.pack "Moved Permanently"