Commit 89f527c6 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files


parent f604c42b
......@@ -635,6 +635,7 @@ plainHttpTransport =
(_, resp) <- cabalBrowse verbosity Nothing (request req)
let code = convertRspCode (rspCode resp)
etag' = lookupHeader HdrETag (rspHeaders resp)
-- 206 Partial Content is a normal response to a range request, see #3385.
when (code==200 || code==206) $
writeFileAtomic destPath $ rspBody resp
return (code, etag')
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment