webserver 0.4.2 → 0.4.3
raw patch · 3 files changed
+11/−2 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Network.Web.URI: toURLPath :: URI -> ByteString
Files
- Network/Web/Params.hs +1/−0
- Network/Web/URI.hs +9/−1
- webserver.cabal +1/−1
Network/Web/Params.hs view
@@ -296,6 +296,7 @@ , (".zip", "application/zip") , (".gz", appOct) , (".ico", "image/x-icon")+ , (".svg", "image/svg+xml") ] ----------------------------------------------------------------
Network/Web/URI.hs view
@@ -8,7 +8,7 @@ URI, uriScheme, uriAuthority, uriPath, uriQuery, uriFragment , URIAuth, uriUserInfo, uriRegName, uriPort , parseURI- , uriHostName, uriPortNumber, toURL, toURLwoPort+ , uriHostName, uriPortNumber, toURL, toURLwoPort, toURLPath , isAbsoluteURI, unEscapeString, unEscapeByteString ) where @@ -106,6 +106,14 @@ -} toURLwoPort :: URI -> S.ByteString toURLwoPort uri = uriScheme uri +++ "//" +++ uriHostName uri +++ uriPath uri +++ uriQuery uri+ where+ (+++) = S.append++{-|+ Making a URL string from 'URI' without port and parameters.+-}+toURLPath :: URI -> S.ByteString+toURLPath uri = uriScheme uri +++ "//" +++ uriHostName uri +++ uriPath uri where (+++) = S.append
webserver.cabal view
@@ -1,5 +1,5 @@ Name: webserver-Version: 0.4.2+Version: 0.4.3 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3