diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-01 15:03:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-01 15:03:30 +0200 |
| commit | bf4af30bb2bce9dd5baf91f313ea35c55893eb10 (patch) | |
| tree | 94aa42278cd88cb50304e7fe34854399fc5255af /guix/scripts | |
| parent | 9e63a388d91f73e2b82f8c4688f131680fe5f165 (diff) | |
| parent | bc7d089a9cb5ce843730f863cc03195168a956b9 (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts')
| -rwxr-xr-x | guix/scripts/substitute.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index adf94a7ac3..b9983c5b9c 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -467,6 +467,7 @@ to read the response body. Return the list of results." ;; case we have to try again. Check whether that is the case. (match (assq 'connection (response-headers resp)) (('connection 'close) + (close-port p) (connect requests result)) ;try again (_ (loop tail ;keep going |