urlpath 6.0.2 → 6.0.3
raw patch · 2 files changed
+5/−5 lines, 2 files
Files
- src/Data/Url.hs +4/−4
- urlpath.cabal +1/−1
src/Data/Url.hs view
@@ -406,7 +406,7 @@ mkUriPath auth path = URI (Strict.Just "https") True auth- (V.fromList $ fmap T.pack $ splitOn "/" $ toFilePath path)+ (V.fromList $ fmap T.pack $ splitOn "/" $ dropWhile (== '/') $ toFilePath path) V.empty Strict.Nothing @@ -414,7 +414,7 @@ mkUriPathEmpty path = URI Strict.Nothing False (URIAuth Strict.Nothing Localhost Strict.Nothing)- (V.fromList $ fmap T.pack $ splitOn "/" $ toFilePath path)+ (V.fromList $ fmap T.pack $ splitOn "/" $ dropWhile (== '/') $ toFilePath path) V.empty Strict.Nothing @@ -422,7 +422,7 @@ mkUriLoc auth loc = URI (Strict.Just "https") True auth- (V.fromList $ fmap T.pack $ splitOn "/" $ show loc)+ (V.fromList $ fmap T.pack $ splitOn "/" $ dropWhile (== '/') $ show loc) ( V.fromList $ map (\(l,r) -> (T.pack l) Strict.:!: (maybe Strict.Nothing (Strict.Just . T.pack) r))@@ -434,7 +434,7 @@ mkUriLocEmpty loc = URI Strict.Nothing False (URIAuth Strict.Nothing Localhost Strict.Nothing)- (V.fromList $ fmap T.pack $ splitOn "/" $ show loc)+ (V.fromList $ fmap T.pack $ splitOn "/" $ dropWhile (== '/') $ show loc) ( V.fromList $ map (\(l,r) -> (T.pack l) Strict.:!: (maybe Strict.Nothing (Strict.Just . T.pack) r))
urlpath.cabal view
@@ -1,5 +1,5 @@ Name: urlpath-Version: 6.0.2+Version: 6.0.3 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: MIT