http-conduit-downloader 1.0.19 → 1.0.20
raw patch · 2 files changed
+8/−7 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
Network/HTTP/Conduit/Downloader.hs view
@@ -406,7 +406,7 @@ C.FailedConnectionException _host _port -> DRError "Connection failed" C.FailedConnectionException2 _ _ _ _ -> DRError "Connection failed" C.InvalidDestinationHost _ -> DRError "Invalid destination host"- C.HttpZlibException e -> DRError $ "Zlib exception " ++ show e+ C.HttpZlibException e -> DRError $ show e C.ExpectedBlankAfter100Continue -> DRError "Expected blank after 100 (Continue)" C.InvalidStatusLine l -> DRError $ "Invalid HTTP status line:\n" ++ B.unpack l C.NoResponseDataReceived -> DRError "No response data received"@@ -516,14 +516,14 @@ redownloadOpts (("If-Modified-Since: " ++ B.unpack time) : acc) xs redownloadOpts acc (_:xs) = redownloadOpts acc xs fixNonAscii =- escapeURIString (\ c -> ord c <= 0x7f && c `notElem` " []{}|")+ escapeURIString (\ c -> ord c <= 0x7f && c `notElem` " []{}|\"") .+ trimString relUri (fixNonAscii -> r) = fromMaybe r $ fmap (($ "") . uriToString id) $ liftM2 relativeTo- (parseURIReference $ trim r)- (parseURI url)- trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace+ (parseURIReference r)+ (parseURI $ fixNonAscii url) -- fmap utcTimeToPOSIXSeconds $ @@ -531,7 +531,8 @@ tryParseTime formats string = foldr mplus Nothing $ map (\ fmt -> parseTime defaultTimeLocale fmt (trimString string)) formats- where trimString = reverse . dropWhile isSpace . reverse . dropWhile isSpace++trimString = reverse . dropWhile isSpace . reverse . dropWhile isSpace parseHttpTime :: String -> Maybe UTCTime parseHttpTime =
http-conduit-downloader.cabal view
@@ -1,6 +1,6 @@ cabal-version: >= 1.6 name: http-conduit-downloader-version: 1.0.19+version: 1.0.20 author: Vladimir Shabanov <vshabanoff@gmail.com> maintainer: Vladimir Shabanov <vshabanoff@gmail.com> homepage: https://github.com/bazqux/http-conduit-downloader