webserver 0.5.0.1 → 0.5.1.0
raw patch · 3 files changed
+8/−2 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Network.Web.Params: FkContentRange :: FieldKey
Files
- Network/Web/Params.hs +3/−0
- Network/Web/Server/Basic.hs +4/−1
- webserver.cabal +1/−1
Network/Web/Params.hs view
@@ -147,6 +147,7 @@ | FkCacheControl | FkConnection | FkContentLength+ | FkContentRange | FkContentType | FkCookie | FkDate@@ -169,6 +170,7 @@ , FkCacheControl , FkConnection , FkContentLength+ , FkContentRange , FkContentType , FkCookie , FkDate@@ -189,6 +191,7 @@ , "Cache-Control" , "Connection" , "Content-Length"+ , "Content-Range" , "Content-Type" , "Cookie" , "Date"
Network/Web/Server/Basic.hs view
@@ -29,6 +29,8 @@ import Network.Web.URI import System.FilePath +import Text.Printf+ ---------------------------------------------------------------- {-|@@ -165,7 +167,8 @@ return . Just $ response OK val size ct modified Just st@(PartialContent skip len) -> do val <- obtain cnf file' $ Just (skip,len)- return . Just $ response st val len ct modified+ let rangeSpec = S.pack $ printf "bytes %d-%d/*" skip (skip+len-1)+ return . Just $ insertField FkContentRange rangeSpec $ response st val len ct modified Just st -> return . Just $ response st L.empty 0 ct modified _ -> return Nothing -- never reached
webserver.cabal view
@@ -1,5 +1,5 @@ Name: webserver-Version: 0.5.0.1+Version: 0.5.1.0 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: John W. Lato <jwlato@gmail.com> License: BSD3