Avoid running annex.http-headers-command more than once.

2018-04-04 15:00:51 -04:00 · 2018-04-04 15:00:51 -04:00 · 2ec07bc29f
commit 2ec07bc29f
parent 98cc34c211
11 changed files with 31 additions and 28 deletions
--- a/Remote/BitTorrent.hs
+++ b/Remote/BitTorrent.hs
@ -207,7 +207,8 @@ downloadTorrentFile u = do
 					misctmp <- fromRepo gitAnnexTmpMiscDir
 					withTmpFileIn misctmp "torrent" $ \f h -> do
 						liftIO $ hClose h
-						ok <- Url.withUrlOptions $ Url.download u f
+						ok <- Url.withUrlOptions $ 
+							liftIO . Url.download u f
 						when ok $
 							liftIO $ renameFile f torrent
 						return ok