From 89f527c698edb0cfc28be46b9766a9e2fc64c33c Mon Sep 17 00:00:00 2001
From: Mikhail Glushenkov <mikhail.glushenkov@gmail.com>
Date: Mon, 2 May 2016 12:52:56 +0200
Subject: [PATCH] Comment.
---
cabal-install/Distribution/Client/HttpUtils.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
index 092d8164f9..4226451931 100644
--- a/cabal-install/Distribution/Client/HttpUtils.hs
+++ b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -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')
--
GitLab